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No se caliente la “CABEZA” 
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Nuestra calidad es “SEIKO '; 
nuestros precios, únicos. 

Si desea más Información, 
consulte con nuestro distribuidor 
más cercano, o llame □ escriba a; 
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46022- Valerte* a. 

Tel (96) 372 S3 89. 
Télex 62220 
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Te 93 323 32 t 9 
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I Entramos en la recta final del año. Es el momento para pensar en los fu¬ 

turos proyectos que todos queremos llevar a cabo durante el año a punto de 
comenzar. Commodore Magazine no es una excepción, y por ello estamos 
pensando y madurando diversos cambios que, escalonadamente iremos im¬ 
primiéndole a la revista. Al igual que toda materia viviente, nosotros también 
evolucionamos, siguiendo un proceso continuo cuyo fin último es identificar¬ 
nos cada vez más con los lectores. Llegados a este punto cabe deciros que 
la tabulación de las respuestas a la encuesta ha arrojado resultados verdade¬ 
ramente esclarecedores. Ahora disponemos de una idea más clara del perfil 
medio del lector y usuario de Commodore, que utilizaremos para que redun¬ 
de en una revista más completa para todos. Igualmente os agradecemos todos 
los comentarios que algunos de vosotros habéis adjuntado al cuestionario. 
Los hemos leído todos e iremos considerándolos por grupos en la medida que 
nos vaya siendo posible. 

El arte auxiliado por el ordenador es un tema cuya actualidad es más can¬ 
dente a medida que avanza el tiempo. Hay muchas y diferentes formas de 
utilizar el ordenador como herramienta de ayuda a la creatividad. 

Roberto Menéndez ha preparado un interesante artículo descriptivo de Koa¬ 
la Pad y sus posibilidades, un diminuto accesorio que conecta nuestra imagi¬ 
nación pictórica con el Commodore; parece mentira que algo tan diminuto 
pueda proporcionar tanta ayuda. De todas formas, sabemos que entre voso¬ 
tros hay muchos artistas informáticos. No guardéis demasiado vuestras obras, 
hay concursos a la vista y los premios que tenemos pensados merecen la pena. 

Para dar fin a estas líneas no resta más que desearos todo lo mejor para 
el Nuevo Año, en el que confiamos seguir siendo vuestra revista de cabecera, 
y que las Fiestas sean todo lo felices que os merecéis. 
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para el VIG-20 y el <3-64 
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Cartas 


P.: No sé si os acordaréis de mí, 
pero hace un par de meses os escribí 
una carta que, por cierto, la publi- 
cásteis en el número 5, ¡¡y os esca¬ 
bullísteis con una diplomacia digna 
del Foreign Office!! 

También he notado que ya no po¬ 
néis una sección, la sección de tru¬ 
cos. ¿Qué pasa? 

Bueno, si os faltan colaboraciones 
yo os voy a dar una, lo que yo que¬ 
ría era anular el LIST, que se consi¬ 
gue mediante esto: 

POKE 774, 255 impide el listado. 

POKE 774,0 nos da sólo los nú¬ 
meros de línea. 

POKE 774, 34 que hace virguerías 
en la pantalla. 

POKE 774, 207 da errores de lí¬ 
nea. 

POKE 774, 26 vuelve a la norma¬ 
lidad. 

¡Ya está! Conste que no lo he he¬ 
cho yo, lo hizo Domingo Márquez, 
un commodorero de Madrid. 

Ahora, voy a mandaros otra du¬ 
da, y es esta. Deseo crear «ventanas 
en el C-64. Pero cada vez que pon¬ 
gamos CLR desaparecerán, por lo 
tanto, yo deseo ponerlas en el borde 
exterior de la pantalla. Es decir, en 
la franja que cambia de color cuan¬ 
do ponemos POKE 53280, n. Espe¬ 
ro haber explicado bien. Si no lo vol¬ 
veré a intentar. 

También os voy a felicitar (no to¬ 
do son críticas), por la sección «Có¬ 
mo diseñar juegos por ordenador 
(cap. 4)». ¡¡Os esmerásteisü 

J. R. Oscar Martín 
Las Palmas 


R.: Por supuesto que nos acorda¬ 
mos, tenemos las RAM recién engra¬ 
sadas. Lo nuestro no es la diploma¬ 
cia, pero la mayoría de las veces, la 
explicación de cómo desactivar el lis¬ 
tado suele llevar emparejadas pistas 
que permiten activarlo, y esto puede 


crearle problemas a los fabricantes 
de software que, como es lógico, de¬ 
sean que sus programas no sean des¬ 
protegidos. Los POKE de tu amigo 
son francamente interesantes, le fe¬ 
licitamos. 

No pasa nada con la sección de 
trucos, tenemos una carpeta llena 
con muchos y muy buenos, pero hay 
que dosificarlos para el mayor dis¬ 
frute del lector. Bueno en realidad la 
causa no es esa, sino otra: No dispo¬ 
nemos del número de páginas sufi¬ 
ciente para poner tantas secciones 
como nos gustaría en cada número. 
Tampoco nos faltan colaboraciones, 
pero recibimos encantados las que 
nos queráis enviar los usuarios, al fin 
y al cabo compartimos afición y re¬ 
vista. 

La idea que nos expones nos pa¬ 
rece interesante, pero nos faltan da¬ 
tos, por ejemplo: método empleado 
para crear las ventanas. 

En la mayoría de los casos estas se 
crean con rutinas en código máqui¬ 
na, que detectan el paso del barrido 
de la pantalla para enviar la informa¬ 
ción a visualizar en el momento ade¬ 
cuado. En realidad CLR pone el pro¬ 
grama en un estado inicial, borran¬ 
do el contenido del área de memoria 
destinado a las variables entre otras 
cosas. Tal vez lo más interesante es 
proteger ese área (con el mapa de me¬ 
moria en la mano verás cómo se des¬ 
plaza en función de la longitud del 
programa en BASIC). Sin más deta¬ 
lles no vemos la relación que liga a 
tu programa a CLR con la desapari¬ 
ción de las ventanas. Sin embargo, 
algunos bits de las direcciones 53265, 
53266 y 53273 pueden ser de ayuda. 
Envianos más datos. 

Gracias por tus elogios. 


P.: Me siento decepcionado al 
comprobar que no ha sido atendida 


la carta que hace cosa de mes y me¬ 
dio les remití, en la cual me ponía en 
sus manos para que resolvieran unas 
dudas o problemas surgidos en el me- 
nejo de mi C.BM.-64, hoy reitero esa 
carta en la esperanza de que me den 
una contestación satisfactoria. 

Aunque, en el caso de que se trate 
de un defecto del aparato, ya no po¬ 
dré ampararme en la garantía de és¬ 
te, cosa que podría haber hecho ha¬ 
ce un mes, me gustaría que me dije¬ 
ran a qué se debe ese ruido de fondo 
que se produce en la salida de audio 
al trabajar con el chip de sonido SID, 
ruido que no es aceptable ni en el 
peor de los sintetizadores y mucho 
menos en el «maravilloso, grandio¬ 
so, estupendo» sintetizador de soni¬ 
do del 64. No me puedo explicar có¬ 
mo un sintetizador de sonido digital 
puede hacer semejante cosa. Las co¬ 
nexiones son perfectas y el cable de 
output de audio es el idóneo. El pro¬ 
blema a mi modo de entender reside 
inexcusablemente en el aparato, ¿por 
qué? 

Ahora la pregunta que se formula 
todo usuario de un C.B.M.-64.¿Por 
qué no se traducen al castellano más 
libros del 64?; ¿es qué no quieren?; 
¿es qué no pueden?, ciertamente 
pienso que estarían garantizados 
unos pingües beneficios, y mientras 
tanto nosotros esperándolos como el 
Santo Advenimiento. 

J. A. Pérez 
Vigo, Pontevedra 


R.: Su carta es acreedora de varias 
respuestas. Comencemos contestán¬ 
dolas por el orden en que usted las 
fórmula. 

Lamentamos su decepción, pero 
comprenda que son muchas las car¬ 
tas que diariamente nos llegan a la 
redacción. Todas ellas piden una rá¬ 
pida contestación. Sin embargo, 
nuestra tarea es puramente editorial, 
es decir, producir una revista que po¬ 
ner todos los meses en los kioskos. 
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Si, por el contrario, nos dedicásemos 
a buscar las respuestas y escribir las 
cartas correspondientes, es razonable 
pensar que elaborar la revista pasa¬ 
ría a un segundo término. Esta es la 
razón por la cuál no es tónica gene¬ 
ral de las publicaciones mantener co¬ 
rrespondencia con sus lectores, para 
ello existe un canal consistente en la 
sección pertinente destinada a cartas. 
Aprovechamos una vez más reiterar 
que nuestra relación con el fabricante 
y sus distribuidores es todo lo cordial 
que puede ser en estos casos, pero en 
ningún momento existen relaciones 
de unión mutua. Tampoco somos un 
club de usuarios ni propietarios de 
tiendas, sólo somos eso, una edito¬ 
rial especializada en publicaciones in¬ 
formáticas. 

Es cierto que en la generación de 
sonidp del 64 aparece un ruido de 
fondo, pero normalmente no es tan 
inaguantable como nos dice. Muchas 
veces se acrecienta por un ajuste de¬ 
fectuoso del modulador de ÜHF que 
inyecta la señal por la entrada de an¬ 
tena de televisor. Para disminuirlo 
hay dos posibilidades: ajustar el mo¬ 
dulador en el servicio técnico, o bien 
obtener la señal directamente a par¬ 
tir de la salida de audio de la parte 
posterior del ordenador, como usted 
nos indica. Aun así persiste un leve 
ruido de fondo y su principal causa 
responde a que el 64 no es un apara¬ 
to exclusivamente orientado a la ge¬ 
neración de música, sino que esto es 
una característica más. En realidad 
lo que sucede es que el SID compar¬ 
te determinadas cosas con el resto de 
los componentes del ordenador, en¬ 
tre ellas, por supuesto, el micropro¬ 
cesador. Como usted sabrá, la parte 
del ordenador más crítica con las se¬ 
ñales en el dominio del tiempo es la 
dedicada a la producción de la visua- 
lización en pantalla. Aquí las seña¬ 
les de sincronismo, que controlan en 
qué momento ha de enviarse qué in¬ 
formación al monitor o televisión, 
deben ser extremadamente precisas y 
aunque el chip VIC-II se encarga del 
trabajo pesado, también necesita pe¬ 
dir información a la RAM, sobre qué 


datos ha de visualizar en cada mo¬ 
mento y se producen pequeñas deten¬ 
ciones en la marcha normal del sis¬ 
tema, pero que por su extremada¬ 
mente corta duración pasan desaper¬ 
cibidas. Sin embargo, se traducen en 
algo parecido al ruido blanco que se 
escucha al utilizar el SID. De no ser 
así, lo que en este chip es ruido de 
fondo, se traduciría en una visuali- 
zación imperfecta en el caso de que 
fuera con el VIC-II. Simultáneamen¬ 
te hay otras causas de generación de 
ruido, pero tienen su fundamenta- 
ción en las distintas señales de reloj 
que inundan los distintos circuitos 
del ordenador. De todas maneras sa¬ 
bemos de músicos profesionales que 
aplican esta señal de salida a diferen¬ 
tes circuitos electrónicos que la fil¬ 
tran y hacen desaparecer el ruido ex¬ 
ternamente, sintiéndose muy orgu¬ 
lloso de su 64. 

Igualmente hay diversas técnicas 
de desactivación de la pantalla du¬ 
rante la ejecución de música, que ha¬ 
cen disminuir notablemente el ruido. 
En la sección trucos explicaremos en 
una próxima edición cómo conse¬ 
guirlo. 

De todas maneras, si en su apara¬ 
to es excesivo, convendría que com¬ 
parase con algún distribuidor para 
ver si en otros 64 ocurre lo mismo, 
tomándolo como referencia de cara 
a dictaminar si es una avería, o está 
dentro de los límites normales de es¬ 
te modelo. 

En cuanto a la segunda parte de su 
carta, le facilitamos la dirección que 
nos pide, pero tal vez la central eu¬ 
ropea le responda más rápidamente: 

Commodore Computer. 675 Ajax 
Avenue. Slough. Berkshire SL1 
4BG. 


P.: Soy asiduo lector de su revis¬ 


ta, la cual me entusiasma, pero el 
motivo de la carta es rogarles que me 
dieran información sobre Clubs de 
Usuarios de Commodore en Barce¬ 
lona. Asimismo me gustaría que me 
dijeran cómo quitar la protección a 
una cinta. La cinta que yo tengo 
cuando se está grabando salen rayas 
en la pantalla y al terminarse de gra¬ 
bar el programa se ejecuta automá¬ 
ticamente, si poder ni siquiera pro¬ 
bar “List”. El programa no hace ca¬ 
so ni a “Run/Stop” ni “Restore”. 

J. Martínez Moneada 

R.: En realidad, nuestro contacto 
con los Clubs de Usuarios no es tan 
ágil como deseamos. Por eso invita¬ 
mos a todos aquellos que formen 
parte de alguno, y cuyos fines no 
sean lucrativos, a que se pongan en 
contacto con nosotros, para ser el 
punto de referencia de quienes de¬ 
seen contactarlos. Es más, en nues¬ 
tro ánimo está ceder algún espacio de 
la revista a los Clubes, para que ellos 
lo llenen con lo que más útil les pa¬ 
rezca. 

Efectivamente, hay maneras de 
desproteger una cinta, los diseñado¬ 
res de software suelen utilizar diver¬ 
sos métodos de protección, para evi¬ 
tar iniciativas como la suya (deduci¬ 
mos que se trata de un cassette co¬ 
mercializado por alguna firma). 

Es lógico que una de la primeras 
preocupaciones será no permitir que 
el programa sea listado por el usua¬ 
rio, desactivando el teclado en la par¬ 
te que no sea estrictamente necesa¬ 
ria a los fines del programa. Bueno, 
esto suponiendo que el programa sea 
en BASIC. Tal vez lo más probable 
sea que el desarrollo se haya hecho 
en código máquina, por lo que que¬ 
darán descartadas todas las teclas 
que el programa no reclame por si 
mismas. Sin embargo, a título úni¬ 
camente de ampliar sus conocimien¬ 
tos sobre protección de cintas siga in¬ 
tentándolo (a lo mejor algún día ne¬ 
cesita de un método para la protec¬ 
ción de sus propios programas). 
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KOALA PAD 

LA POTENCIA DE UN 
PAQUETE GRAFICO 


Las enormes posibilidades gráficas 
del Commodore 64 se presentan al 
usuario como algo complicado que 
más vale dejar a los expertos. En ge¬ 
neral y a menos que se tengan unas 
ideas muy claras de programación o 
se esté dispuesto a emplear una bue¬ 
na cantidad de tiempo para ir desci¬ 
frando a través de libros, manuales y 
artículos de revistas todos los secre¬ 
tos del diseño de gráficos, el usuario 
medio se suele quedar en blanco a la 
hora de llevar a la práctica sus ideas 
gráficas. 

Es sorprendente que Commodore, 
que tanto ha cuidado otros aspectos 
del 64, haya olvidado incluir en el BA¬ 
SIC, comandos específicos para tra¬ 
bajar en alta resolución, obligando a 
los que quieran hacerlo a adentrarse 
en las complejidades de los mapas de 
memoria, gráficos de bloques, sprites, 
caracteres definidos por el usuario, ru¬ 
tinas en lenguaje máquina... y un lar¬ 
go etcétera que ha sido y seguirá 
siendo objeto de un gran número de 
artículos en revistas y unos cuantos 
libros. 

Para aquellos que deseen realizar 
dibujos en color y en alta resolución 


sobre la pantalla del televisor, ya sea 
como entrenamiento o por motivos 
profesionales, la solución está en ad¬ 
quirir alguno de los múltiples paque¬ 
tes gráficos existentes en el mercado. 

Estos paquetes gráficos están cons¬ 
tituidos por uno o varios programas 
que hacen de intermediarios entre las 
complejidades de la máquina y el 
usuario, presentándole a éste un con¬ 
junto de opciones para realizar dibu¬ 
jos de una forma sencilla, intuitiva y 
mucho más directa. 

Dentro de estos paquetes gráficos 
uno de los más atractivos es KOALA 
PAD, sistema cehtrado en torno a un 
pequeño tablero de digitalización for¬ 
mado por una caja de plástico blan¬ 
co en cuya parte central hay una su¬ 
perficie rectangular de color negro 
sensible a la presión, sobre la que se 
dibuja con un lápiz de plástico. En su 
parte superior la caja lleva dos boto¬ 
nes o pulsadores rectangulares cuya 
misión es la de servir de ayuda al se¬ 
leccionar las distintas opciones de di¬ 
seño. Además de la tableta de digita¬ 
lización y el lápiz, KOALA PAD in¬ 
cluye dos manuales y un diskette con 
el programa KOALA PAINTER y 


con algunos dibujos de demostración. 

Todo ello constituye un paquete 
gráfico de amplias prestaciones, ori¬ 
ginal y sobre todo muy sencillo de 
manejar. 


PUESTA EN FUNCIONAMIENTO 

Una vez que tenemos todos los ele¬ 
mentos fuera de la caja, es decir, la 
tableta de digitalización, los manua¬ 
les y el diskette con el programa, se 
trata de poner todo ello a funcionar 
para nosotros. Los pasos a seguir son 
muy sencillos. En primer lugar hay 
que conectar la tableta al ordenador, 
lo que se lleva a cabo a través de un 
conector idéntico al que llevan los 
joysticks y que se conecta en el port 
1. En realidad la tableta de digitaliza¬ 
ción se comporta como un joystick, 
bueno, más exactamente como un 
paddle doble. La parte central de la 
tableta está constituida por una super¬ 
ficie de color negro y de forma cua¬ 
drada, de dimensiones 108 x 108 
mm. Esta superficie es sensible a la 
presión de forma que cuando apoya¬ 
mos el lápiz o cualquier otro objeto 



Fase 1. En color negro trazamos la línea del Fase 2. Con la opción FRAME hemos F¿sc 5 .to. - ETRCLE nos permite 

horizonte y el perfil de unas pirámides. incluido un conjunto de edificios rvfenr áa efic s a _e>tro extraño paisaje. 

rectangulares para formar una ciudad. 
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sobre la misma, en un punto determi¬ 
nado, estamos modificando dos valo¬ 
res de resistencia eléctrica, correspon¬ 
dientes a las coordenadas X e Y. Es¬ 
tos dos valores son los que ve el or¬ 
denador. Esto es exactamente lo mis¬ 
mo que hacemos al girar los mando 
de un paddle, variar el valor de una 
resistencia eléctrica. El ordenador dis¬ 
pone de elementos internos para con¬ 
vertir estos valores de resistencia en 
valores numéricos, valores que pode¬ 
mos leer en determinadas posiciones 
de memoria (concretamente las posi¬ 
ciones 54297 y 54298). De esta forma 
cuando apoyamos el lápiz sobre un 
punto de la tableta, el ordenador sa¬ 
be inmediatamente qué punto de la 
tableta hemos tocado y también pue¬ 
de saberlo cualquier programa sin 
más que leer las posiciones de memo¬ 
ria que hemos indicado. 

La tableta gráfica se limita, así 
pues, a presentarle al usuario una su¬ 
perficie sobre la que deslizar un lápiz 
proporcionándole al ordenador dos 
valores de resistencia por cada punto 
de la superficie. El ordenador inme¬ 
diatamente convierte estos valores de 
resistencia en valores numéricos que 
quedan a disposición de cualquier 
programa que quiera utilizarlos. Los 
dos botones de la parte superior de la 
tableta se comportan como los boto¬ 
nes de disparo de los joysticks, es de¬ 
cir, que al pulsarlos se pone a «1» un 
cierto bit en una posición de memo¬ 
ria. Hasta ahora parece que la table¬ 
ta gráfica no aporta demasiadas no¬ 
vedades y en parte es cierto, ya que 
un gran porcentaje de la potencia grá¬ 
fica del conjunto se centra fundamen¬ 
talmente en el programa incluido en 
el diskette. Lo que sí tiene que que- 
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Foto 1. El menú de opciones. Cada opción aparece representada por su pictograma 
correspondiente. En la parte inferior están los pinceles y la paleta de colores. 


dar claro es que la tableta de digitali- 
zación puede utilizarla cualquier pro¬ 
grama tal y como si estuviera utilizan¬ 
do un paddle doble o un joystick. 

Siguiendo con la puesta en funcio¬ 
namiento, el paso siguiente consiste en 
cargar los programas del diskette. Esto 
se lleva a cabo introduciendo el dis¬ 
kette en la unidad y escribiendo 
LOAD «KPAINT», 8. Este KPAINT 
es un programita corto que se encar¬ 
ga de cargar el resto de los programas 
incluidos en el diskette. Para ello hay 
que escribir RUN cuando aparezca el 
cartelito de READY. Entonces la uni¬ 
dad de diskette se pone de nuevo a gi¬ 
rar y después de unos segundos (la 
lentitud de la unidad de diskettes ha¬ 
ce que sean bastantes segundos) apa¬ 
rece en la pantalla un bonito paisaje 
campestre con el título del programa 


y los anagramas de quienes lo comer¬ 
cializan. Después de algunos segun¬ 
dos más, aparece por fin el menú 
principal. Con esto se completa la car¬ 
ga del programa y la puesta en fun¬ 
cionamiento del conjunto, ahora ya se 
puede empezar a dibujar. Y eso es lo 
que vamos a hacer. 


EMPEZANDO A DIBUJAR 

Todas las opciones que ofrece 
KOALA PAD para llevar a cabo cual¬ 
quier obra maestra, incluyendo la po¬ 
sibilidad de almacenarla en diskette, 
aparece representadas en el menú 
principal. Este menú, que puede ver¬ 
se en la foto 1, está constituido por 
una serie de pictogramas (o dibujitos) 
cada uno de los cuales representa una 



Fase 4. Después de borrar una serie de líneas 
ocultas y de cerrar los perfiles de las pirámides, 
empezamos a rellenar de color, tanto estas 
como los edificios. 


Fase 5. Seguimos llenando de color y 
añadimos nubes y un camino hasta la 
ciudad, este con la opción LINES. 


Fase 6. El paisaje terminado. El tono del 
cielo lo hemos conseguido utilizando no un 
color plano, sino una de las texturas 
de puntos. 


NUMERO 10 


romrrtodor* Q 

_ SI 



























































función determinada. Cada uno de 
los pictogramas va acompañado por 
el nombre de la función en inglés. Hay 
tres partes bien diferenciadas en este 
menú: la primera está constituida por 
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17 funciones, 16 de las cuales son es¬ 
pecíficamente para dibujar mientras 
que la 17 está destinada al manejo de 
diskettes. Otra zona, la del medio, está 
destinada a los pinceles. Se puede ele¬ 


gir entre un total de ocho pinceles di¬ 
ferentes, de distinto grueso, forma o 
número de líneas dibujadas. Por últi¬ 
mo, en la parte inferior de la pantalla 
aparece representada la «paleta» de 
colores. Hay un total de dieciséis co¬ 
lores planos pero además, debajo de 
ellos hay 16 tramas o texturas de pun- 
titos que se pueden emplear como si 
se tratara de otros colores cualesquie¬ 
ra. Quizás el número de colores sea 
un poco limitado y podría haberse 
ampliado a más colores, pero en fin, 
hay que pensar que el C-64 no es un 
procesador gráfico especializado sino 
un «micro» de propósito general, y 
que dieciséis colores son un buen nú¬ 
mero de colores. 

La selección de cualquiera de las 
funciones del menú, del pincel o del 
color que se va a utilizar se realiza de 
una forma muy sencilla. Al apoyar el 
lápiz sobre la tableta aparecerá una 
flechita sobre la pantalla. Moviendo 
el lápiz se mueve la flechita, y de esta 
forma se puede conseguir que señale 
a una cualquiera de las funciones del 
menú. Cuando la flechita señale a la 
función que queremos seleccionar no 
hay más que apretar uno cualquiera 
de los botones de la parte superior de 
la tableta y la función, el pincel, o el 
color concreto quedarán selecciona¬ 
dos. El menú informa en todo mo¬ 
mento sobre la opción que se encuen¬ 
tra en funcionamiento. El nombre de 
la función seleccionada cambia de co¬ 
lor intermitentemente de rojo a negro, 
debajo de pincel seleccionado apare¬ 
ce un cuadradito verde, y por último, 
el reborde de la pantalla se vuelve del 
color que se haya escogido. En cual¬ 
quier momento se puede cambiar de 
opciones. Para ello no hay más que 
mover la flechita a la nueva opción y 
pulsar el botón. Los dos botones de 
la parte superior de la tableta son en 
realidad el misma están conectados 
eléctricamente, y la única razón de 
que haya dos, uno a la izquierda y 
otro a la derecha, es porque hay dos 
tipos de pasosas; los diestros y los 
zurdos. 

En csk pomo vamos a formular 


RESUMEN DE FUNCIONES 


DRAW .... Permite dibujar cualquier tipo de línea. La flecha de la pan¬ 
talla sigue fielmente el movimiento del lápiz. Al pulsar el 
botón el lápiz pinta, al soltar deja de hacerlo. 

LINE . Permite trazar líneas rectas entre dos puntos que se fijan 

con el cursor en cualesquiera puntos de la pantalla. 

LINES Igual que la anterior, pero actuando el último punto de ca¬ 
da línea como origen de la siguiente. Permite crear contor¬ 
nos poligonales. 

DOPS .... Deja sin efecto la última operación realizada. Se emplea para 
la corrección inmediata de errores. 

FRAME . .. Crea rectángulos estirables hasta cualquier dimensión. Pos¬ 
teriormente los rectángulos se pueden desplazar con la fle¬ 
cha a cualquier posición de la pantalla. 

BOX. Igual que la anterior, pero en este caso se trata de rectán¬ 

gulos llenos y no solamente del perímetro de los mismos. 

RAYS . Se elige un centro con la flecha sobre cualquier punto de 

la pantalla. A partir de dicho centro se pueden trazar lí¬ 
neas rectas radiales a cualquier otro punto. 

CIRCLE . . Permite trazar circunferencias estirables hasta cualquier ra¬ 
dio y que posteriormente se pueden desplazar hasta cen¬ 
trarlas en cualquier otro punto. 

DISC . Igual que la anterior, pero en lugar de circunferencias se 

crean circuios llenos. 

FILL . Al pulsar el botón, el interior de la superficie cerrada a la 

que se encuentre señalando la flecha, comienza a llenarse 
del color o la textura de puntos seleccionada. 

XCOLOR . Permite cambiar el color señalado por la flecha por otro 
color seleccionado de la paleta. Esto se hace simultánea¬ 
mente en todas las zonas del dibujo del color a cambiar. 

COPY .... Esta opción copia zonas de un dibujo en otras zonas del 
mismo dibujo o en la otra pantalla. Las zonas a copiar son 
rectangulares y se delimitan con la flecha sobre la pantalla. 

ZOOM .... Se trata de una lupa electrónica que aumenta la zona selec¬ 
cionada del dibujo y permite modificarlo pixel a pixel. In¬ 
cluye en la parte inferior la paleta de colores. 

MIRROR . . Crea un doble espejo horizontal y vertical, de modo que 
todo dibujo que se haga en un cuadrante de la pantalla, 
aparecerá simultáneamente en los tres cuadrantes restantes 
como imagen especular. 

SWAP .... Para pasar de una a otra pantala de dibujo. Junto con la 
opción COPY permie copiar zonas del dibujo de una pan¬ 
talla a otra. 

STORAGE . Permite almacenar o recuperar pantallas en un diskette. 

ERASE . . . Borra completamente la pantalla sobre la que se esté tra¬ 
bajando. 


Tabla 1. Resumen de las 17 funciones de diseño que ofrece el menú. 
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otra pequeña queja. Hemos dicho que 
cuando se selecciona una de las fun¬ 
ciones, su nombre cambia de color in¬ 
termitentemente, de rojo a negro. Es¬ 
to está pensado para que en todo mo¬ 
mento sea sencillo saber cuál es la 
función seleccionada. Pues bien, en 
realidad es bastante difícil apreciar es¬ 
te cambio de color y creemos que otro 
tipo de señalización más llamativa 
(como por ejemplo que cambiara de 
color todo el recuadro que represen¬ 
ta a la función) redundaría en una 
mayor comodidad para el «artista». 

Ahora que hemos visto el aspecto 
que presenta el menú, y cómo se se¬ 
leccionan las diversas opciones del 
mismo, ha llegado el momento de que 
pongamos manos a la obra. 

Vamos a realizar un dibujo paso a 
paso, explicando cómo se utilizan y 
para qué sirven algunas de las funcio¬ 
nes del menú. 

EL DIBUJO SE VA PERFILANDO 

El primer paso para empezar con 
nuestro dibujo consiste en llegar a la 
pantalla en blanco sobre la que vamos 
a dibujar. Estamos en el menú prin¬ 
cipal. Primero seleccionamos la fun¬ 
ción DRAW que nos permite trazar 
cualquier tipo de líneas, luego esco¬ 
gemos un pincel fino y como color, 
el negro, con el que vamos a realizar 
los contornos. Ahora vamos a pasar 
a una de las pantallas de dibujo. 
KOALA PAINTER nos proporciona 
dos pantallas de dibujo. Podemos rea¬ 
lizar dibujos distintos en cada una de 
ellas. Además, y esto es muy intere¬ 
sante, mediante la opción SWAP del 
menú, podemos pasar de una panta¬ 
lla a otra y copiar zonas entre las dos. 
Es decir, que en una pantalla pode¬ 
mos dibujar un detalle y luego pode¬ 
mos copiarlo en la otra pantalla so¬ 
bre otro dibujo cualquiera. El único 
inconveniente es que sólo podemos 
copiar secciones rectangulares, sin que 
sea posible ceñirse a los contornos de 
una figura cualquiera y copiarla tal 
cual. Esta copia se puede realizar uti¬ 
lizando la opción COPY del menú, 
que permite copiar zonas de un dibu¬ 
jo sobre otra zona del mismo dibujo 


o sobre el dibujo de la otra pantalla. 

Volviendo a lo que decíamos, des¬ 
de el menú desplazamos el lápiz has¬ 
ta la parte inferior de la tableta (con 
lo que la flecha se desplaza a la parte 
inferior de la pantalla), pulsamos uno 
de los dos botones y ¡Hop!, nos en¬ 
contramos con una pantalla en blan¬ 
co. Ya estamos en una de las panta¬ 
llas de dibujo. 

Hemos pensado hacer un paisaje y 
lo primero que hacemos es dibujar la 
línea del horizonte. Utilizamos la op¬ 
ción DRAW que permite trazar líneas 
de cualquier forma, como si estuvié¬ 
ramos dibujando sobre un papel. Hay 
algo que comentar y es que la super¬ 
ficie útil de dibujo sobre la tableta es 
bastante pequeña, al mover el lápiz 
hacia los extremos nos salimos de la 
pantalla. Y esto da lugar a que con 
un ligerísimo desplazamiento del lá¬ 
piz se produce un desplazamiento 
bastante grande sobre la pantalla. En 
definitiva hay poca precisión, las lí¬ 
neas se tuercen con mucha facilidad 
y sólo con un pulso muy muy firme 
se puede hacer que la línea salga co¬ 
mo queremos. 

¿Qué ocurre si la línea no ha sali¬ 
do como queríamos? Hay varias po¬ 
sibilidades para corregir lo que no nos 
guste. En primer lugar tenemos la po¬ 
sibilidad de borrar toda la pantalla 
mediante la opción ERASE. Claro 
que esto sólo es útil cuando queremos 
borrar todo el dibujo y no tiene sen¬ 
tido cuando el mismo está casi termi¬ 
nado y cometemos algún pequeño 
error. Otra posibilidad un poco más 
refinada consiste en lo siguiente: Vol¬ 
vemos al menú principal, para lo cual 
no hay más que desplazar el lápiz a 
la parte inferior de la tableta y pulsar 
uno de los botones. Una vez en el me¬ 
nú cambiamos de color, escogiendo el 
color del fondo. Volvemos a la pan¬ 
talla de dibujo y pasamos con el pin¬ 
cel sobre la línea equivocada. Al uti¬ 
lizar el mismo color del fondo el re¬ 
sultado es el mismo que si estuviéra¬ 
mos empleando una goma de borrar. 
Claro que cuando los alrededores de 
la línea que queremos borrar son 
complicados o incluyen varios colo¬ 


res, este proceso tampoco parece el 
más adecuado, ya que es poco preci¬ 
so. En cualquier caso, al utilizar este 
procedimiento de la goma de borrar 
es interesante cambiar de pincel y co¬ 
ger el más gordo que haya. De esta 
forma resulta mucho más fácil borrar. 

Otra forma de corregir errores, mu¬ 
cho más práctica y cómoda, es utili¬ 
zar la opción OOPS del menú. Oops 
es el equivalente inglés del ¡huuy! cas¬ 
tellano, es decir, es lo que uno suele 
exclamar cuando ha «metido la pata» 
de la forma más tonta. Pues bien, 
cuando uno se equivoca dibujando, 
no hay más que volver al menú, apun¬ 
tar a la opción OOPS y disparar 
(apretar el botón). Con ello, el error 
que se acaba de cometer queda anu¬ 
lado, como si no se hubiera cometi¬ 
do. En definitiva esta opción cancela 
o anula la última operación realiza¬ 
da, tanto si ha consistido en dibujar 
una línea o un círculo o cualquier otra 
de las opciones de diseño. 

Por último, para las equivocaciones 
se puede utilizar la opción ZOOM. 
Esta es desde luego una de las posi¬ 
bilidades «estrella» de las que ofrece 
el menú. Al señalar la opción ZOOM 
aparece un recuadro en la pantalla. 
Este recuadro se puede desplazar por 
el dibujo hasta colocarlo en el lugar 
adecuado y entonces, al pulsar el bo¬ 
tón, la zona enmarcada del dibujo se 
agranda y pasa a ocupar toda la pan¬ 
talla. Ahora, con el dibujo bien en 
grande, se puede corregir lo que se 
quiera, pixel a pixel, con total y ab¬ 
soluta precisión. La opción ZOOM es 
como mirar una parte del dibujo con 
lupa y permite conseguir la exactitud 
que no se consigue trabajando con to¬ 
do el dibujo. 

Vamos a poner algunas cosas en 
nuestro paisaje. Por ejemplo, unas pi¬ 
rámides, ya que nos van a permitir ha¬ 
blar de la función RAYS. Esta función 
permite obtener líneas radiales a par¬ 
tir de un centro cualquiera. Desde el 
menú se selecciona RAYS (rayos) y 
volviendo a la pantalla de dibujo, se 
mueve el lápiz hasta que la flecha de 
la pantalla se coloca donde queremos 
que vaya el centro. Ahora, pulsando 
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el botón, fijamos el centro, y a partir 
de entonces si colocamos el lápiz en 
otro punto, aparecerá una línea recta 
entre el centro y dicho punto. Si co¬ 
locamos el centro en la cúspide de la 
pirámide, es muy sencillo dibujar las 
aristas. 

Sigamos dibujando. La opción 
FRAME permite colocar rectángulos 
de las dimensiones que se quiera en 
cualquier posición de la pantalla. 

Sólo se dibuja el contorno. El inte¬ 
rior refleja el dibujo que hubiera de¬ 
bajo, como si el rectángulo fuera 
transparente. Hay una opción pareci¬ 
da denominada BOX que hace lo mis¬ 
mo, con la diferencia de que el rectán¬ 
gulo cubre el fondo, no es transparen¬ 
te. Con esta opción hemos dibujado 
algo que parece una ciudad, con mon¬ 
tones de edificios rectangulares de di¬ 
versos tamaños y formas, y colocados 
unos junto a otros. 

Vamos a complicar un poco la co¬ 
sa incluyendo círculos. Hay una op¬ 
ción CIRCLE para dibujar círculos. 
El centro se puede colocar en cual¬ 
quier posición y el radio puede ser 
cualquiera. Sólo hay un pequeño pro¬ 
blema, y es que en lugar de círculos lo 
que se obtiene son elipses. Esto se de¬ 
be en parte a que la pantalla gráfica 
del Commodore está dividida en ele¬ 
mentos de imagen (pixels) rectangu¬ 
lares en lugar de cuadrados. Esto ha¬ 
ce que los círculos aparezcan achata¬ 


dos. De todas formas deberían haber 
pensado en ello a la hora de incluir 
esta función, ya que el que quiera cír¬ 
culos verdaderamente circulares tiene 
que recurrir a la opción ZOOM para 
corregir los resultados, o bien hacer¬ 
se con una plantilla de elipses y dibu¬ 
jar elipses con la opción DRAW, pa¬ 
ra que aparezcan círculos en la pan¬ 
talla. 

Otra de las opciones que ofrece 
KOLA PAINTER es la de llenado de 
superficies cerradas. Se llama FILL. 
Su utilidad es evidente, pues para re¬ 
llenar cualquier superfice de un color 
determinado basta con dibujar el con¬ 
torno de la misma. Luego se seleccio¬ 
na FILL, se escoge el color con el que 
se va a rellenar el contorno y al pul¬ 
sar el botón la superficie va rellenán¬ 
dose poco a poco. El llenado a veces 
no es perfecto, y queda algún que otro 
pixel sin colorear, pero eso tiene muy 
fácil solución haciendo uso de la op¬ 
ción ZOOM. Hay que tener cuidado 
de que la línea que marca el contor¬ 
no esté efectivamente cerrada, ya que 
si queda un solo hueco, aunque sea 
de un solo pixel, la pintura se escapa¬ 
rá por el hueco, y empezará a llenar 
de color todo lo que encuentre hasta 
que quede encerrada por una línea. 

Con esta opción hemos ido dándo¬ 
le color a nuestro dibujo después de 
haber borrado una serie de líneas 
ocultas por el procedimiento de la go¬ 
ma de borrar. 


La opción XCOLOR también me¬ 
rece un comentario. Es una opción 
que permite cambiar un color por 
otro cualquiera. Todas las zonas del 
dibujo que estuvieran del color inicial, 
quedan modificadas y cambian de co¬ 
lor. La idea es interesante y permite 
un cierto grado de experimentación 
resolviendo la cuestión de saber có¬ 
mo quedaría mi dibujo si en lugar del 
color X hubiera utilizado el color Y. 

Hablemos un poco del almacena¬ 
miento de los dibujos. El menú inclu¬ 
ye una opción denominada STORA- 
GE que permite almacenar los dibu¬ 
jos en un diskette. Cada diskette pue¬ 
de contener hasta 12 dibujos, pero hay 
un pequeño problema: los dibujos se 
almacenan en un formato que no per¬ 
mite su utilización directa por un pro¬ 
grama en BASIC. Este inconveniente 
puede evitarse, pero a costa de utili¬ 
zar una rutina del manual, que habrá 
que incluir en cualquier programa que 
quiera hacer uso de los dibujos. 

Esta opción de almacenamiento tie¬ 
ne su propio menú y da la posibili¬ 
dad de cargar dibujos desde el diskette 
o de guardarlos en él, pero sorpren¬ 
dentemente no proporciona ningún 
medio de borrar dibujos del diskette. 
Se puede formatear un diskette y 
guardar dibujos en él, pero no hay 
ninguna forma de borrar un dibujo 
determinado, a no ser que se decida 
borrar el diskette entero. Es realmen¬ 
te sorprendente. 
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ZX SPECTRUM 48 K 

35.700 

ZX SPECTRUM PLUS 48 K 

53.000 

ZX INTERFACE 1 

14.900 

ZX MICRODRIVE 

14.900 

CARTUCHO CINTA 


MICRODRIVE 

1.400 

ZX INTERFACE II 

6.900 

INTERFACE JOYSTICK 

3.700 

AMPLIFICADOR DE SONIDO 


CON RESET 

3.500 

DATASSETTE EUROMATIC 

5.400 

SINTETIZADOR DE VOZ 


CHEETAH 

11.200 

CABLE SALIDA A MONITOR 


(MONTADO) 

2.500 


SEIKOSHA GP-50-S (SPECTRUM) 24.900 


SEIKOSHA GP-550-A 55.900 

SEIKOSHA GT-700 COLOR 83.900 

INTERFACE SEIKOSHA PARA 
SPECTRUM 9000 

INTERFACE SEIKOSHA PARA. 
COMMODORE 7.500 

STAR GEMINI 10 X 71.900 

STAR GEMINI 15 X 103.900 


STAR POWERTIPE (MARGARITA) 89.900 
STAR INTERFACE COMMODORE 10.900 


IMPRESORAS 


ZX SPECTRUM 


monitores 


fontec, fosforo 

CON SONIDO 
PONTEC, FOSFORO 
SIN SONIDO 


29.900 

28.000 


SPECTRAVIDEO 


SPECTRAVIDEO SV-318 (32K 

ROM y 32K RAM) 44.900 

SPECTRAVIDEO SV-328 (32K ROM 

y 80K RAM) 68.400 

LECTOR/GRABADOR DE 

CASSETTES 7.100 

EXPANDER (1 DISCO + CONTR. 

+ INTERF. CENTR.) 89.900 


C/ Aragón, 472 - Telf. 246 27 75 
08013 Barcelona 
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CAZADOR es un programa de tra¬ 
vesuras que nos envía Luis Hernán¬ 
dez desde Barcelona para el C-64. El 
programa es de travesuras (no nos he¬ 
mos equivocado) porque consiste en 
que el jugador, que es un chico muy 
travieso, le ha quitado la escopeta a 
su padre y ha salido a cazar pájaros. 
El padre enfadado, y con razón, ha 
salido a su vez a cazar ai hijo. Así 
pues, el jugador tiene un doble obje¬ 
tivo; por un lado tiene que cazar el 
mayor número posible de pájaros de 
los que van pasando por la parte su¬ 
perior de la pantalla, y por otro lado 
tiene que evitar a su padre que pre¬ 
tende estropearle la diversión (los ma¬ 
yores siempre son iguales). La verdad 
es que hay un tercer objetivo y es que 
el jugador tiene que evitar golpearse 
con los árboles del bosquecillo don¬ 
de se encuentra, ya que si lo hace ter¬ 
minará el juego. El cazador se mane¬ 
ja mediante el joystick conectado en 
el port 1 y puede moverse en cuatro 
direcciones y disparar. Ocurre una co¬ 
sa y es que cuando ha disparado y 
mientras la bala está en el aire, el ca¬ 
zador no puede moverse, a menos que 
pulse de nuevo el botón de disparo en 


C-64 

cuyo caso podrá moverse, pero con el 
inconveniente de que la bala desapa¬ 
recerá y no podrá alcanzar al pájaro. 
Parece muy complicado pero cuando 
se empieza a jugar enseguida se acla¬ 
ra uno y sabe por dónde van los ti¬ 
ros. 

El juego puede terminar por una 
cualquiera de las siguientes causas: 

a — Transcurridos 3 minutos, 
b — Tu padre te coge, 
c — Matas a tu padre, por error, 
d — Te estrellas contra algún objeto 
del decorado. 

e — El pájaro se te escapa (vuela de¬ 
masiado alto fuera de la pantalla). 

La explicación del listado de esta 
travesura es como sigue: 



10 — 20 Inicializa variables. 

25 — 40 ¿Se necesitan instruc¬ 
ciones? 

45 — 115 Instrucciones del jue¬ 
go. 

120 — 180 Dibujo del decorado. 

185 — 225 Se crean sprites y el re¬ 
loj TI$ se pone a cero. 

230 — Salto a subrutinas mo¬ 
vimiento del padre 
(395-450) y movimien¬ 
to del pájaro 
(580-620). 

235 — 250 Salto a subrutina mo¬ 
vimiento del cazador 
(265-280) según joys¬ 
tick. 

255 — Salto a la subrutina de 
disparo (820-825). 

365 — 380 Rutina de “has mata¬ 
do a tu padre”. 

385 — 390 Reloj y marcador de 
puntos. 

510 — 560 DATAS de los sprites. 

570 — 575 Rutina de “se acabó el 
tiempo”. 

625 — 680 Movimiento del pája¬ 
ro cuando hay bala en 
la pantalla. 

685 — 695 Rutina de “te has es¬ 
trellado con un árbol”. 

700 — 715 Para volver a empezar. 

795 — 825 Rutinas de sonidos. 


10 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 

95 


PE a PEEK(53279) : MU«54272 

X$= ” Ü»P»»»M»»»ÍÍ»ÍÍi»Í 

Y$="J 


»i»»»ii»»»»i»l : x=50 ; Y= 148 ; YH« 100 : XH* 150 

:VP*1 00 : XP=200 :CU=0:K=2:XH*1 50 : PA-0 


POKE53280,7:P0KE33281,7:PRINT" IT ;LEFT$ < Y*,10);LEFT$(X$,5); 
PRINT"1NECESITAS INSTRUCCIÜNES <S/N)?" 

GETW$:IFW$<>"S"RNDW$<>"N M THEN35 
IFW$="N"THEN120 

PRINT” 3" :POKE53280,3:P0KE53281,3 

PRINT"PERES UN CHfiVRL QUE Hfi COGIDO Lfi ESCOPETA" 

PRINT"DE SU PADRE SIN QUE SE ENTERASE Y TE HAS" 

PRINT"PUESTO A CAZAR PAJAROS DURANTE 3 MINUTOS"; 

PRINT" - 

PRINT" NO DEBES CHOCARTE CONTRA NADA,TU PADRE " 

PRINT"NO PUEDE COGERTE CAZANDO Y,NATURALMENTE, " ' 

PRINT"NO PUEDES MATAR A TU PADRE*" 

PRINT"«SE JUEGA CON EL JOYSTICK CONECTADO EN EL" 

PRINT"PORT 1. PUEDES MOVERTE EN CUATRO DIREC- " 

PRINT "CI0NES;SI DISPARAS NO TE PODRAS MOVER Y " 


PREMIADO CON 


PESETAS 


i ñ cximmodorR 

14 _ -M¿ig¿Lzln£_ 


NUMERO 10 
























O I 

í 00 

O 1 

105 

o 

110 

o 

115 

o 1 

120 

o I 

125 

o 

130 

O l 

135 

o 

140 

o 

145 

o 1 

150 

o 1 

155 

O 1 

160 

0 I 

165 

o 

170 

O 

175 

o 1 

180 

o I 

185 


F'PINT " > PARA PODER MOVERTE > TENDRAS QUE VOLVER 
PRINT"R APRETAR EL BOTON DE DISPARO(CON LO QUE " 

PRINT"DESAPARECE Lfl BñLR).LAS BflLRS NO PUEDEN " : FURT=1TO15000 ; NEXT 
PRI NT "ATRAVESAR LOS ARBOLES' 1 : PRINT"'líCUERTE! " : FORT=1TO10000 : NEXT 
POKE53280J7 = P0KE53281/8 
PRINT"T; ; FORD=1TO480 : PRINT'TJa B" ; : NEXTD 

PRINT , ‘Mí!MílSlíttí»t^*Tfi«í*■■*■■■■■*■•" ; F0RD=1T012 : PRI NT i '■ NEXTD 


PR I NT " «ítíCCfiKfittíMíaiK'' 

PRINTLEFT$(X$,24>.: = F0RD=1T04 = PRINT :, II i 

PRiNT"xmi3r t 1 .; 

PRINT"MiMiar v'i 

PRiNT".amisr i".; ... 

PRINT"IWMMI I "> : NEaTD 

pr i nt " srnwwswíiüWia ■ «anai ; pr i nt" a 

PR i ht " n a ■" 

pp.iNT M nsn ■ n ■ M" 

FORD=1T02 : PRINT" a B a " : NEXTD 

V=53248 : FORI=0TO62 : READA : POKE12288+1 < A ; NEXTI : PQKEV+23.- 8 


NUMERO 10 










190 

195 
200 
205 
2 j.0 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 


FüR I -0TO62 ; REñlih ; F’ÜKE 12352+1 - H ; NEXTI 

FORI=0TO62■RERBR:POKE12416+1,fi:NEXTI•POKEV+7,100+VH 

PUKEV+6,XH:FORB=1TÜ100:NtXTD•FQRI=0TO62¡RERBR:PGKE12480+1,ñ:NEXTI 

FOKt2042 , 194 ■ POKEV+41,1 : P0KEV+2S, 8: F'OKEV+37,0: F’QKEV+38,1 

F'OKEV+21 ,15: PGKE2040,192: POKEV+39 ■ 1 

POKE2041,193-POKEV+40,1 

FOKE2043,195 : PQKEV+42.. 6: TI$= ! 000000" 

F'OKEV+21 , PEEK < V+21> RNB253: PQKEV, XRNB255: POKEV+1 ,V 
G0SUB395 : GOSUB580 

IF <PEEK <56321> RNB8)08fiNBX<254THEHX=X+i0:0ÜSÜB265•ÜÜT0255 
l F < P |EK56321 ) RNH2 ) O2flNBV<220THENV*V+10 : G0SUB265: G0T0255 
IF <,PEEK < 56321) RNB 1 >O i RNDV>i 50THEN ¥=V-i 0: G0SUB265: G0T0255 
IF í PEEK <. 56321) RNB4 > 04RNDX>24THENX=X-10: G0SUB265 
IF (PEEK < 56321)RNB16 > 016THENXB=X = VB=V •' GO3UB820 : GGT0285 
UU7U225 

F'OKEV+21, F'EEK í V+21 > ANB253= PGKEV, XRND255: POKEV+1. V 
IPPEEK <V+31)=5THEN685 
I r F'EEK (. V+3 i > = i 3THEN6R5 
PETURN 

G0SUB625:G0SUB455 
IF < F'EEK < 56321 > AND 16 > 016THEN225 
XB=XB+4:VB=VB-6 

F'0KtV+21, F'EEK (V+21 >0R2 : F'OKEV+2, XBRNB255 • POKEV+3, VB 
IFXB>=256flNDXP>=256THENF'GKEV+16,6:GGTO330 
IFXB>=256THEN PGKEV+16,2:GGT0323 
IFXF>=256THENP0KEV+16.' 4 : G0TG325 
POKEV+16,0 

I FF'EEK (V+30 ') = i 0THEN365 

IFPEEK < V+30 > =6THENG0SUB810 •' GOTO7F0 

IFVB<40ORXB>330THEN223 

I FF'EEK í V+3 i > = i 4THEN355 

I FF'EEK < V+31 > =6THEN355 

G0TG285 

IFVB> i 50TFÍENPOKEV+2.. 0: GGT0225 

GOT0285 

G0SUB795 

ERÍ!« 231 ’ e:PR!NT ' ; ®®*' 1S Bn ™ 0 " TU 

FGRI=0TO7:POKEV+I,0:NEXTI:GGTO760 


FRI NT" SMIMhJ I EMF'G": PRI NT " »»I4" ; MI m <TI $. 4.1 

pp i n j" mramnptiiPR j aros " print-'wmw ; pr : retijpn 

IFXH>=233THENK=PNBC1):CU*1 


';PIGHT$(TI$,I 


O I 

400 

IFXHC30THEHK=RN¡K 1} : Ct 1=0 

0 

° | 

405 

IFCU=1THENXH=XH-12 

1 O 

0 1 

410 

XH=XH+6 

1 o 

o 

415 

GOSUB740 

1 o 

o 1 

420 

POKEV+7,VH+139 

1 n 

0 1 

425 

F'GKEV+6 , XH 

s 

O I 

430 

I FF'EEK < V+30 ) =9THEN72S 

1 O 

1 ^ 

SI 

435 

I FF'EEK < V+30 ) = 10THEN365 

1 o 

O I 

440 

IFTI $= "000300"THEN565 

1 o 

0 

445 

I FF'EEK < V+31 > = 13THEN685 

1 o 

o 1 

450 

IFPEEK < V+31 ; =5THEN685 

1 n 

0 I 

455 

I FXH>=246TFIENCU= 1 

1 2 

o | 

460 

IFXH<30THENCU=0 

O 

1 0 


1C eommodor* 

ID - M¿Lg¿izlnje_ 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


465 IFCU«lTHENXH*XH-9 

470 XH=XH+4.5 

475 GOSUB740 

480 P0KEV+7,VH+130 

485 PGKEV+6,XH 

430 IFPEEK<V+38>«9THEN720 

435 IFPEEKCV+30 > = 10THEN365 

500 IFTI $=" 000300THEN565 

505 RETURN 



5 i 0 DflTfl 1,193, 8.. 3, 227, 0,1,138,0,0, 156 , 0,1,232,0,3,248,0,3, 224 
515 DRTA0,7,224,0,7,224,0,3,224,0,3,224,0,3,36,0,3,36,6,3,36,0 
520 DfiTñlS, 36,0, 14,36,0,8, 112,0,0,0,0,0,6,0,0,0, 0,0.* 0, 0 


525 HñTñ0,1,128,0,1,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

530 DflTfl©,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0^0,0,0,0,0,0,0,0 

535 DñTñ0,0,0,0,0,0,0,0,0,0,112 ,0,0,224,0,i,133,0,3,135,0,31,255,0,55,255,0 

540 DflTflS1,255,0,3,227,0,1,225,0,@,224,0,0,1 i2,0,0,56 

545 DflTfl©, 0, 0,0,0, 0,0,0, 0,0, 0, 0, 0, ©, 00,0, 0, 0 

550 DATA©,80,0,0,116,0,0,252,0,0,48,0,2,170,0,10,170,128 

555 DñTñi0,170,128,14,170,132,15,87,132,1,85,0,1,63,0,1,63,0 

560 DflTñi,63,0,1,63,0,10,138,128,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

565 FQR i =01"07 : PQKEV+1,8 ; NEXTI ; POKE53280, 0 : P0KE53281, @ 

578 PRlNT l, ^laHiaíMÍÍ»ÍÍMC:E ACABO EL. TIEMPO" 


575 PRINT"WiWW»*»»WflS MATADO :: ;Pfl; M PAJAROS" : GOTO700 
580 IFJK/2=INT<JK/2>THENG0SUB385 
585 JK=JK+1■’IFXP<i00THENXP=360 
530 IFVP<40THEN780 ' 

535 I“XP256THENPOKEV+16,4:GQT0685 
600 POKEV+16,0 

605 IFXP<256THENVP=VP~2 : GÜT0615 
610 VP=VF+2.55 

615 XP=XP~i2 : POKEV+4,XPAND255 : POKEV+5,VP 


620 RETURN 

625 IFJK / 2=INT(JK/2)THENG08UB385 ___ 

6 3 0 J K=J K +1 : IF X B >=256ñ N D ’X P >=256T H E N r O K E V + i 6,6 : G O T O 6 7 0 

635 IFXB>*256TH£N POKEV+16,2:GÜT0668 

640 IFXP<100THENXP=360 

645 IFXP>=256THENPOKEV+16,4•G0T0668 

650 IFYP<40THEN780 

653 F' O K E V + i 6, 0 

660 IFXP<=255T HENVF=VP-1.4 : GOTO670 
665 VF~VP+1n 3 

678 XP=XP~8 ; POKEV+4, XPHNI¡255 ; P¡JKE+ o , V P 
675 IFPEEK<V+30> «6THENG0SUB813 : GÜT0760 
680 RETURN 
685 G O S U £>735 

630 POKE‘*7+21,0: p q{<£ 5323@, 0 : pOKE53281,0• PRINT ’ : LlaMsiíMsMPÍ&ITi i E HF¡S tSTRELLñDO" 
635 FGRI—0T07 ; POKEV+1,8 : NExTI•UU t Ur 00 


700 PRI NT" JWD!M3<S I QUIERES VOLVER R JUGñR PULSñ EL BOTON" 
705 PRINT"DE DISPARO" 

710 IF ( PEEK (.56321 > AND 16 > = 16THEN710 
715 RESTORE¡RUN 


720 

725 


G0SUB735 

POKEV+21 > 0:PQKE53260,0 ; 


P0KE53281,0 ■ PRI NT" «íarrU PADRE 


TE HA VISTO CAZRNDO"; 


NUMERO 10 


oommocftore 11 

_1/ 


ooooooooooooooooooooooooooooooooooooooooooooooooooooo 












Cofictt ** 0 



Viene de la página anterior 
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730 

735 

740 

745 

750 

755 

760 

765 

770 

775 

780 

785 

7'30 

795 

800 

805 

310 

815 

320 


PRINT" CON SU ES- MCOPETR" : PRINT M kJ®lftLA QUE TE ESPERA 1 " 

FORI=0TÜ7:POKEV+I,0:NEXTI:GOTO700 
IFK<.3THENVH-10:RETURN 
I FK<. 6THENYH»25 : RETURN 
IFK<.8THENVH-40:RETURN 
VH=60:RETURN 

PA=PA+1:POKEV+21,PEEKTV+21>fiND253 
FORD*VPTO160 

PQKEV+5,D : FORTUITOS:NEXTT,D : VP»VP+5 ; POKEV+2,0 ; GÜTÜ225 

FORI-0TO7:POKEV+I,0:NEXTI:GOTO700 

PQKEV+ 21, 0 •PQKE53289,0:P0KE53281,0 

F’RINT"CDQWWaiSE TE HR ESCAPADO EL 'PAJARO" 

PRINT"mWWI1ñLR SUERTE! " :FORI=0TO7: POKEV+I,0 -NEXTI : GOTO700 

MU-54272 : POKEMU+23, 0 •' POKEMU+24, 15 : PÜKEMU+6,240 • POKEMU+5,0: POKEMU+4.129 

POKEMU+4 1 0 0 RETURN U+1 * D ’ NEXTD *’ PORD»150TO1STEP-1 : F’OKEMU+1, D: NEXTD 

POKEMU+23,0•POKEMU+24,15 : POKEMU+6,0:POKEMU+5,9:POKEMU+4,17 
FORD»140TO0STEP-1:POKEMU+1,B ; NEXTD : POKEMU+4,0 : RETURN 
POKEMU+23, 0 •' POKEMU+24, 15 • POKEMU+6, 240: POKEMU+5, 12 •' POKEMU+1,20 
POKEMU+4,129 ; FORD=1TO50 : NEXTD:POKEMU+4,0:RETURN 


ELECTRO AFICIÓN 

COMPUTER 


PRODUCTOS COMMODORE 


Commodore-64 

Disk Drive 1541 


Cassette CN2 


Monitor Color 1701 /^ül^| 


Impresora MPS-801 

Commodore 64SX Portable 


VIC-20 



SINCLAIR 

Spectrum 48K 
Impresora Seikosha 
con ¡nterface 
Microdrive 

Teclado DK'TRONICS 
LAPIZ óptico 
Amplificador Sonido 


¡inczlaii— 



SOFTWARE 

Contabilidad 
Contabilidad Doméstica 
Control de Stocks 
Mailing y Etiquetas 
Ficheros 
Base de Datos 
Gran variedad de Juegos 
Programas Educativos 


IMPRESORAS 

Seikosha 

Star 

Epson 

NewPrint 

C. Itoh 

Riteman 



GAMA COMPLE TA DE ACCESORIOS 

Interfaces 
Joysticks 

Sintetizadores de voz 
Cassettes 
Cintas 
Discos 

Base de Datos 
Easy Script 
Monitores 
Interpod 
Cables 

Procesador de Textos 
Libros 



ORDENADORES DE GESTION 

Pal Computer 

Commodore 

Apple 



oooooooo o jo ooooooooooc 





































VIC 20 


filWQ 

Seguro que entre nuestros lectores 
hay algunos que, aparte de su gusto 
por la informática, se dedican a ser 
«radio-aficionados» en sus ratos li¬ 
bres. Para ellos especialmente presen¬ 
tamos este programa MORSE que 
nos ha enviado José Luis Castaño 
desde Zamora. Con él podrán practi¬ 
car de una forma sencilla el alfabeto 
morse, y si son un poco manitas es fá¬ 
cil que conecten su VIC a su emisora 
y se dediquen a enviar mensajes mor¬ 
se desde el teclado del ordenador. 

Aquellos de nuestros lectores que 
no sean radio-aficionados pueden, de 
cualquier forma, aprender el alfabe¬ 
to morse que nunca se sabe cuándo 
va a hacer falta y si no, en cualquier 
caso, este programa Ies puede servir 
para dejar atónitos a sus amigos con 
las maravillas que es capaz de hacer 
el ordenador. 

Concretando un poco, el programa 
comienza interrogando sobre la velo¬ 
cidad de emisión, es decir, cuánto de 
deprisa van a ir apareciendo los pun¬ 
tos y rayas del alfabeto morse. A con¬ 
tinuación y después de seleccionada 
la velocidad (una velocidad interesan¬ 
te se obtiene con un valor entre 10 y 
20), el programa nos pide que intro¬ 
duzcamos el texto a emitir, texto que 
no puede ser más largo de lo que ad¬ 
mite una sentencia INPUT. Después 
de introducido el texto desde el tecla¬ 
do se pulsa RETURN y, ¡oh, maravi¬ 



lla!, el ordenador, él solito comienza 
a emitir puntos y rayas con un soni¬ 
do muy agradable, al mismo tiempo 
que en la pantalla van apareciendo ca¬ 
da una de las letras del texto y su equi¬ 
valente según el alfabeto morse. Al 
terminar, por supuesto, se puede vol¬ 
ver a empezar o se puede acabar con 
el programa y dedicarse a otra cosa. 

El programa es sencillo y muy fá¬ 
cil de entender, pero para los que es¬ 
tén empezando y quieran entenderlo 
adjuntamos unas líneas con la estruc¬ 
tura del mismo: 





5 — 

15 

Presentación. 

20 — 

40 

Entrada de veloci¬ 



dad (P). 

50 — 

60 

Entrada de frase a tra¬ 



ducir a morse. 

70 — 

85 

Impresión una por 


90 


130 


140 — 190 


1000 — 1030 

1050— 1070 
1080— 1100 
1110 — 1160 


una de las letras inclu 
yendo un retardo se¬ 
gún la velocidad ele¬ 
gida. 

Selección para cada 
letra de su equiva¬ 
lente morse según 
las sentencias DATA 
del final del progra¬ 
ma. 

Rutina para ensayar 
otra frase y detectar 
caracteres erróneos. 
Selección de subrutina 
de punto o raya. 
Subrutina de raya. 
Subrutina de punto. 
DATAS de los caracte¬ 
res. 


5 

10 

15 

26 

30 

40 

50 

60 

70 

75 

30 


PRINT'TT' : CLR 

PFaNT"K^DPIl^Mfl>i»i^»»»|.10RSE ,, : PRINT ll MMMNU»ÍP0R J.L. CflSTRNQ" 

F0R 1 = 1 T0 2500 : NEXTI•PRINT" IT 

PRINT"QUE VELOCIDAD <1-100)" : PRINT" 1-MAXIMA 100-MINIMA" 

INPUT P 

IF PCI OR PM00THEN F'RINTNÜ SEAS TONTO. : PR INI" P0NL0 BIEN": GOTO30 
PRINT"MWQUE BEBO PASAR A MORSE" WIUS0 

INPUT P$ 

F0R 1=1 T0 LEN(P$) 

FORH»1TOP*10:-NEXTH 
A*=MID*<P*,I,1> 

F'RINTA*.; 


PREMIADO CON 

PESETAS 



NUMERO 10 
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>000000000000 
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90 FÜR H=1 TO 38 
100 RERD TR$ 

103 IF TR$="FIN" THEN 180 

110 IF LEFT$(TR$, 1 )~R$ THEN GOTO 1000 

120 NEXT H 

130 PRINT"»"-NEXT I 

140 PRINT" " ¡FRINT SEGO IMOS <S/N > " 

150 GET R$ '■ IF R$~" "THEN 150 
160 IF R$="N" THEN 130 
170 PRI NT" □" •• RESTORE : GOTO50 

180 PRINT”METISTE UN CRRftCTER NHL.INTRODUCE OTRO TEXTO" : RESTORE : GOTO 60 
130 PR I NT" I OS " : FOR I = ÍTG 2000 : NEXT I ¡END 

1000 FOR 02 TO LENCTfl*) 

1010 IF NID$<TR$,C,1>="Ü" THEN GGSUB 1050 
1020 IF MID$<TR$,C,1>="U" THEN GOSUB 1080 
1023 F0RJ=1 TO PW: NEXTJ: RESTORE 
1030 NEXT C 
1040 GOTO 130 

1050 FRINT" - "; :PGKE 36878,6•* POKE 36376,241 
1060 FOR K*1 TOC30#P> ; NEXT K-POKE 36876,0: F’GKE 36878,0 
1070 RETURN 

1080 PRINT :POKE 36878,6:POKE 36876,241 

1030 FOR K=1 TO (15*P> : NEXTK ; POKE 36876,0- POKE 36878,0 
1100 RETURN 

1110 DRTR"RUQ", "BQUÜU" , "CQUQU ', "DÜüü", :: EIJ'', "FUUQU" 

1120 DRTR "GQQU", "HUUUU" ," IüU", " JüQQQ”, "KQUQ" , "LUQUO" , ,! ÍH 
1130 DRTR "NQU",”OQQQ","PUQQU",”QQQUQ","RUQU",SUUU",’TQ” 
i 140 DRTR " ULIUQ" , " VUUUQ", " WUQQ ”, ” XQUUQ, " VQUQQ " , ZQQUü" 

1150 DRTR" 5686756867", ' 1UQQQQ","2UUQGQ", ‘3UUUQQ", :, 4üüUUG","5UUUUU" 

1160 DRTR "6QUUUU","7QQUUU","8QQQUU",”3QQQGU","0QQQGQ","FIN" 
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VIC-20 y C-64 


Pablo Alvarez Castaño es el autor 
de este pequeño paquete de aplicacio¬ 
nes matemáticas que sin duda puede 
ser de gran utilidad para los estudian¬ 
tes de los últimos cursos de E.G.B., a 
la hora de comprobar los resultados 
de sus problemas. ¡Lo que no se debe 
hacer es copiarle al ordenador! 

El programa al ejecutarse presenta 
un menú de opciones que incluye cin¬ 
co posibles ejercicios. Estos son: des¬ 
composición de un número en facto¬ 
res primos, cálculo del máximo co¬ 
mún divisor de un conjunto de núme¬ 
ros, cálculo del mínimo común múl¬ 
tiplo, resolución de un sistema de dos 
ecuaciones con dos incógnitas y por 
último, cálculo de las soluciones de 


una ecuación de segundo grado (in¬ 
cluyendo soluciones imaginarias si las 
hay). Como puede verse el programa 
consiste en cinco interesantes rutinas 
de cálculo que cualquier programador 
podrá adaptar a otros programas que 
puedan necesitarlas. 

El programa está desarrollado ini¬ 
cialmente para un VIC-20, pero co¬ 
mo no incluye ninguna referencia a 
posiciones concretas de memoria, se 
puede hacer funcionar sin ningún 
problema en el C-64; eso sí, la presen¬ 
tación quedará un poquito comprimi¬ 
da a la izquierda. 

La estructura del programa es muy 
sencilla y muy agradable de leer, ya 
que está constituida por un cuerpo 


principal (la impresión del menú y la 
selección de opciones) y el resto del 
programa son subrutinas claramente 
diferenciadas, una por cada opción 
del menú. Esta estructura queda bien 
clara con la siguiente descripción del 
programa. 

¿I desCOMPOS ic x ':• r 4 n i ¡ 

F*F# C T ORES ; PR IM-> T. 
m HftLLñR Mñ . xm-:< •: • 

r* j.v i sóf 

m wín¡ »-« 

HÜLTIPLO 

m feos uh 

, poa t t-AC • >>::>* 

ccu* ! - I • ' 

I ■ ' : 
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C/Orense, 3. Tfno.: 253 


la tienda 
que usted 
necesitaba. 

Imagínese una gran tienda 
pensada para usted. Microtodo, 
una tienda en la que encontrará 
todo lo relacionado con el mundo 
de la microinformática y la 
robótica. 

• Más de 30 marcas de 
ordenadores capaces de satisfacer 
todo tipo de necesidades, tanto 
profesionales como familiares. 

• Más de 400 títulos de 
•programas. 

• La más amplia gama de 
complementos imaginables: 
interfaces, cassettes, floppy disk, 
diskettes, papel continuo... 

• Los 500 mejores libros y revistas 
dedicados a microinformática y 
robótica, editados en varios 
idiomas. Podemos hacerle 
suscripción a cualquier revista 
nacional o extranjera. 

• Cursillos gratuitos de 
adiestramiento y manejo para 
sacar el máximo provecho a su 
inversión. 

• Instalación en su propio 
domicilio de su ordenador, previa 
solicitud. 

• Personal altamente 
especializado. _ 

• Garantía total y máximo servicie 
en todos los productos. 

Y además: 

Precios especiales de lanzamiento. 
Plazos para ordenadores familiares 
y Leasing en ordenadores 
profesionales. 

Todo en 

Microinformática 

.21.19. 28020-M ADRID 




10 

— 60 

Menú de opciones. 

70 

— 71 

Lectura y comproba¬ 
ción de la tecla pulsa¬ 
da. 

72 

— 80 

Selección de la subru¬ 
tina según la opción 
elegida. 

90 

— 160 

Rutina de factores pri¬ 
mos. 

170 

— 230 

Rutina de M.C.D. 

240 

— 300 

Rutina de M.C.M. 

310 

— 460 

Rutina del sistema de 
dos ecuaciones con 
dos incógnitas. 

470 

— 580 

Rutina de ecuación de 
segundo grado. 


1000 — 1020 


2000 — 2070 


Rutina de entrada de 
valores. 

Rutina de final del 
programa. 
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•10 PRINT'^a MRTEMRTICRS 

20 PRINT"Ülrll■ DESCOMPOSICION EN M FñCTORES PRIMOS” 

30 PRINT : PRINT"ÜiStSl HhLLÑR MfiXIMO COMUN ti DIVISOR 
40 F'RINT : PRINT"HñLLRR MINIMO COMUN W MULTIPLO” 

50 PRINT : PRINT"H345 DOS ECUÑCIONES CON ti DOS INCOGNITñS" 
SO PR I NT : PR I NT !l HISC5 ECURCION DE SEGUNDO ti GRfiDO" 

T0 GETR$ ; IFR$= s,M, THEN70 

71 I FR$<> ”1" RNDRSO ” 2 ” RND R$<> :: 3 “ RNDR$0" 4RNDR$<> "5"THEN70 

72 IFR$="1"THENW^l 

73 IFR$="2"THENW=2 

74 I FR$= ,! 3 " THENW-3 

75 I FR$= " 4THENW-4 

76 IFR$-"5"THENW=5 

80 ONWGOTO90 .• 170,240, 310, 470 
96 PRINTMS FñCTORES PRIMOS 

100 PRINT : INPUT tSiiiitr i t; ; X : IFXOINT (X>ORXC0THEN100 
110 1*2 
120 B*X/I 

i30 IFB-INT < B >THENPRINTI;:X*B : GOTO120 
140 1=1+1 

150 IFI>XTHENGOSUB2000:RüN 
160 GOTO120 

170 PRINT'^a MRXIMO COMUN DIVISOR " 

130 GOSUB1000 

130 J=J+1 ; IFC<X<J)THENC*XCJ> : IFJ=RTHEN200 : GOTO198 

208 FGRJ=1TOfi ; IFX< J)/C=INT<X<J >/C>TNENNEXT : GOTO220 

210 C=C~1 ; GOT0200 

220 PRINT : PRINT"EL MCD ES"C 

238 GOSUB200# 

240 PRINT"ClSÍIINIMO COMUN MULTIPLO 1 
250 GOSUBi008 

260 J* J +1 ; IF C>X < J)THENC^X< J;■ : IFJ*ñTHEN270 : GOT0260 
278 FQR J=1TOR : IFC/X(J > = INT <C/X <J > >THENNEXT : GOT0290 
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o 1 
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C=C+1 •’ GGTO270 

PRINT : PRINT "EL MCPI ES"C 

GOSUE2000 

PRINT"SO DOS ECUACIONES DOS INCOGNITAS 

PRINT = PRINT"k*»kMA X + B V = C" 

PRI NT" WIHMD X + E V = F" 

PRINT"«DIÑE LOS VALORES DES" 

INPüT"A";A 
INPUT"E"■B 
I NF'UT" C " C 
INPUT"D"; D 
INPUT"E".:E 
INFUT"F" i F 
ü— (AVE :> — (B*B) 

IFO=0ANBC=A*F/BTHENPRINT”IBON LA MISMA ECUACION ':GOSUB2000 
IFG*0ANBCOA*F/BTHENPRINT"JUSÜN RECTAS PARALELAS" : GOSUB2000 
H= <C#E>-<E*F) : 1 = <A*F)-<C#B "> 

J=H/G : K=I/'G 

PR I NT" = " J •' PR I NT" =" K : GO3UB2000 

FRINT"□a ECUACION HE SEGUNDO GRADO 

PRINT"» AXf2> + B X + C - 0" : PRINT"¡KBIME LOS VALORES BE»" 

INPUT"A";A 
INPUT"B";B 
INPUT"C";C 
D=<Bt2)-<4#A#C) 

ÍFD>=0THEN550 

IFDC0THEN570 

E«<-B+<Bt.5)>/<2*A>=F*-<B+<Dt.5))/<2#A) 

PRINT"»»MX ="E: PRINT" J»Í**K ="F- GOSUB2000 

PR I NT " :«WLAS SOLUCIONES SON*»»»»§»¡I MAGINARI AS " : PR I NT : J=-D 

G--E/<2*A) : Pi-<.JT. 5>/< 2* A> • PRINT"»MX ="G" + "H" I" : PRINT"&K =" 


PRI NT = PR I NT " DE CUANTOS NUMEROS" : PR I NT : I NPUTA 
F'R I NT ■ PR I NT" BI PIELOS= FORJ= 1 TOA • i NPüTX < J > : NEXT 
J=i : C=X<J>:RETURN 
PR INT ■' PRINT : PRINT"OTRA VEZ? " 

GETBÍ-IFB$=""THEN20Í0 

I FETO " S" ANBB$0" N" THENFRI NT" TTT3 : ’ : GOTO2000 

IFE#="S"THEN80 

PRINT•PRINT"OTRA OPERACION? 

GETCí: IFC-T-. THEN2040 
11-CÍO"3"ANDCíO : N"THEN2040 
IFCÍ="S"THENRUN 
PRINT"13" : END 


r G"-"H"I" : GOSUB200 
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Utilizar un COMMODORE 64 únicamente 
para jugar, es como pedirle a Albert Einstein que 
nos resuelva la raíz cuadrada de cuatro. 

El cerebro del ordenador apenas funciona. 

Para aprovecharlo al máximo, lo que Vd. 
necesita son programas interesantes (archivo de 
documentos, educación interactiva, estimulantes 
juegos o proceso de textos) y lógicamente los 


periféricos adecuados: 

— La unidad de disco Commodore, un 
almacenaje de datos muy rápido, fiable y c: 
gran capacidad. 

— La unidad de cassette Commodore, una 
forma económica de introducir y almacén- 
programas. 

— El monitor en color Commodore, para 


MICROELECTRONICA Y CONTROL el Valencia, 49-53.08015 Barcelona, c/ Princesa, 47,3.° G. 28008 Madrid. 
UNICO REPRESENTANTE DE COMMODORE EN ESPAÑA 








COMMODORE COMPUTER Advierte que al 
comprar uno de sus productos exija la garantía de 
MICROELECTRONICA Y CONTROL, S.A., 
única válida para todo el territorio nacional. 



COMMODORE MPS 801 
Impresora de matriz 



COMMODORE MCS801 
Impresora cuatro colores 



COMMODORE DPS 1101 
Impresora de margarita 



COMMODORE 1520 
Printer plotter cuatro 
colores 

COMMODORE 1541 
Unidad de disco 170 K 



COMMODORE 1530 
Unidad de cassette 


COMMODORE 1701 
Monitor con color y sonido 

JOYSTICKS 

PADDLES 

SOFTWARE Y LIBROS 


10% de su cerebro? 


lograr que los textos y gráficos sean más 
claros y vivos que en un televisor. 

— 3 impresoras y un printer-plotter, para 
copias en papel, en blanco y negro o color. 

— Los joystick y paddles, para conseguir que 
los juegos sean más excitantes. 

Sea exigente. Si su cerebro, el de su 
COMMODORE 64, puede darle 100, no se 
conforme con 10. 


ri commodore 

COMPUTER 

la emoción del futuro 
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Desde Asturias, José Antonio Fer¬ 
nández ha enviado a concursar este 
divertido programa titulado PARA¬ 
CAIDISTA y desarrollado para el 
Commodore 64. El juego consiste en 
hacer saltar paracaidistas desde un 
avión y conducirlos sanos y salvos 
hasta una plataforma de aterrizaje 
que se encuentra en el suelo. Todo el 
juego se controla con un joystick co¬ 
nectado en el port 2 del ordenador. 
Para hacer saltar al paracaidista del 
avión hay que mover el joystick ha¬ 
cia arriba o hacia abajo. Hay que bus¬ 
car un buen momento para iniciar el 
salto, ya que de lo contrario se corre 
el riesgo de chocar con alguna de las 


minas aéreas distribuidas por la pan¬ 
talla. El paracaidista inicia su descen¬ 
so con el paracaídas cerrado, por lo 
que es más sencillo que pase por el 
hueco entre dos minas. El problema 
es que con el paracaídas cerrado no 
hay posibilidad de dirigir al paracai¬ 


dista, que cae hacia el suelo como un 
proyectil. Cuando se quiera, por su¬ 
puesto antes de llegar al suelo, se pue¬ 
de abrir el paracaídas pulsando el bo¬ 
tón de disparo de Joystick. A partir 
de este momento ya se puede contro¬ 
lar la dirección del movimiento del 
paracaidista moviendo el joystick a 
derecha e izquierda. Hay que inten¬ 
tar hacerle aterrizar en la plataforma 
móvil que se encuentra en la línea in¬ 
ferior de la pantalla. 

Inicialmente el jugador dispone de 
10 paracaidistas, y debe intentar que 
lleguen al suelo sanos y salvos el ma¬ 
yor número de ellos, dentro del tiem¬ 
po limitado de que se dispone. 

El programa, que viene muy bien 
señalizado mediante sentencias REM 
tiene, a grandes rasgos, la siguiente es¬ 
tructura: 


5 — 30 Inicialización y carga 
de sprites. 

40 — 70 Salto a la rutina de 
instrucciones si se de¬ 
sea. 

80 — 230 Cuerpo principal del 
programa. 

1000— 1150 Salto del paracaidis 0 
ta y caída del mis¬ 
mo. 

1200 — 1260 Subrutina de lectura 
de joystick. 

1300 — 1350 Rutina de paracaidista 
tocado. 

1500 — 1580 Rutina de choque con 
estrellas. 

1700 — 1790 Rutina de aterrizaje 
conseguido. 

1800 — 1880 Rutina de «se acabó el 
tiempo». 

1900 — 1969 Rutina de «se aca¬ 
baron los paracai¬ 
distas». 

Ruido de explosión. 
Subrutina de instruc- 


2000 - 

3000- 

4000- 


■2224 
3810 

dones. 

- 5076 DATAS de sprites. 
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C-64 


5 REM ** PARACAIDISTA #* 

10 REM ## JOSE A. FERNANDEZ VILLORIA ## 
15 P0KE54277 ¡ 9:P0KE54278-240 
30 GOSUB4000 

40 PRINT"XmXSiPPIGUIERES INSTRUCCIONES ? 
50 GETAÍ : IFAí=""THEN50 
60 I FA$<> " S" ANDAÍO" N" THEN50 
70 IFA$="S"THENGOSUB3000 
80 POKE53280,7■P0KE53281,12:PRINT"3" 


<S7N)" 



90 FORI = 1304TO2023•'POKEI , 160 

95 F0RL=54272T054296:POKEL,0 

96 F0KE54277 , 9 : P0KE54278,240 


; SC»0 : U*350 : PR“10 


: POKEI+54272.3:NEXTI 
•NEXTL 

zz irz'-.z '*■' 1 • - r ■> ui '‘-jTtr o, &ttp: P0KE54276/129 : P0KE54273,40 
q- cd í mt : " ; £C 

39 PPINÍ n «SS^^SSSSM!¡II¡¡I!¡¡¡MM, E M, 0 i>(> ¡ W3FflRRr »p B 

i?® DS = ígí * 200>+i424 ; pokejj ' 42: 65 né™ 

120 P0KE2041, ñ:POKE2042,BR : POKEV+21,15 
130 X=25 : V=53 : X1=100:Yl=204 

140 X=X+BR:P0KE54276,129:P0KE54273,40:P0KE54296,2 

150 I FX> 3 =255THENX=25 

155 IF(INT(PHD C0 >% 100)) <=2THENBB=-BB 

160 X1=X1+BB 

170 IFX1024THENX1=24 : BB=~BB 
180 IFX1>-254THENX1=254 1 BB=-BB 

190 JV=PEEK<56320) : JV*15-<JVRNB15) : IFJV=1ÜRJV=2THEN1000 

200 POKEV+2,X:POKEV+3,V:POKEV+4,X1:POKEV+5.V1 

220 P0KE54273,0 

222 GOSUB2220 

224 IFTC0THEN1800 

230 GOTO140 

1000 REM ** SfiLTO PñRRCñlBfiS ** 

1005 POKEV+31,PEEK(V+31)RNB0 

1010 PÜKE2040,H:POKEV+39,1:X0=X:V0-V+4:POKEV+21,7 
1015 V0=V0+3.5 

1020 PQKE54296,15'P0KE54276,17:P0KE54273,280-V0 

1021 IF <INT <RNB< 0 > #100 ))<2THENBB=-BB 

1022 X1 -X1+BB : I FX 1 ■C=24THENX 1 =24 ; BB=-BB 

1023 IFX1>=255THENX1=255:BB=-BB 

1024 POKEV+4,X1:POKEV+5,V1 

1025 POKEV+31,PEEK <V+31) RNB0:IFPEEK<V+31)RNB1 = 1THEN1300 

1026 POKEV+30,PEEK<V+30)RNB0:1FPEEK <V+30)=5THEN1300 

1027 FR=16:JV=PEEK C56320):FR-JVRNB16:1FFR=0THEN105 

1029 IFV0>220THENV0=220 

1030 POKEV,X0:PÜKEV+1,V0 

1031 X=X+BR:IFX>=255THENX=25 

1032 POKEV+2,X:PÜKEV+3,V 

1045 GOSUB2220 

1046 IFTC0THEN1S00 

1047 IFPEEK i V+31> RNB1 = 1THEN1300 
1050 GOTO1015 

1055 POKEV+30,<PEEK <V+30> RND0) 

1060 POKEV+39,i:POKE2040,P:V0=V0-7 
1070 V0=V0+1:GOSUB1200 
1030 X=X+BR:IFX>=254THENX=25 
1030 IF <INT(RNB í0> * 100> ><2THENBB=-BB 
1100 X1=X1+BB 
1105 P0KE54273,280-Y0 
1 H0 I FX1024THENX1 =24: BB=-BB 
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1120 IFX1 >= S 254THENX 1 =254: DE=~DE 

1130 F’OKEV, X0 = PÜKEV+1, V0 : PÜKEV+2, X • PÜKEV+3, V : F’ÜKE V+4.. X1 : PQKEV+5, V1 

1140 IFPEEK<V+30)=5THEN1700 

11451FPEEK< V+31> AND1 = 1THEN1300 

1147 GOSUB2220 

1143 IFTC0THEN1800 

1150 GOTO1070 

1200 REM **J0VSTICK ** 

1210 JV=PEEK<56320>•JV=15-<JVftND15 > 

1220 IFJV=4THENX0==X0-2 
1230 IFJV=8THENX0=X0+2 
1240 IFX0<=24THENX0=24 
1250 IFX0>=255THENX0~255 
1260 RETURN 

1300 REM m PARflC. TOCADO ** 

1310 IF V0C200THEN1500 
1320 POKE2040,C : POKEV+39,2 : GOSUB2000 
1325 POKEV+29,1•GOSUB2000 ; POKEV+29,0 

1330 X0-X •' V0=V : FORI = 1T02 : J J= I NT < RND < 0 > *200 > + 1424: POKEJ J, 42 : POKE JJ+54272 , 6 : NEXTI 

1340 PQKE54276,129:X0»X:V0- 1 V :POKEV,0:POKEV+1,0:POKEV+21,6 

1341 PR*PR-1 

1342 PRI NT " lili , PR 
1344 IFPR<1THEN1900 

1350 GOTO110 

1500 REM ** CHOCA CON ESTRELLAS ** 

1510 POKE2040,E:PQKEV+39,2:GOSUB2000 
1520 POKE2040,H : POKEV+39,2 :LL=0 

1530 FORM*V0TO210:P0KE54296,15-PÜKE54276,17:RQKE54273,255-M 

1533 LL = LL+1:IFLL»10THENPOKE2040,H2 

1534 IFLL=20THENPOKE2040,H:LL=0 
1540 POKEV,X0 : PQKEV+1,M 

1550 NEXTM : P0KE54273,0 

1560 POKE2040,C:GOSUB2000 

1565 POKEV+29,1:GOSUB2000:POKEV+29,0 

1570 X0*X : V0=V:JJ=INT(RND <0 > *200 > +1424:POKEJJ,42:PÜKE54272+JJ,6 

1575 P0KE54276,129 : X0=X:V0=V:POKEV,0:POKEV+1,0:POKEV+21,6 

1576 PRsPR-1 Í*»»»»»»PH mi" PR 

1578 IFPR<1THEN1900 
1580 GOTO110 

1700 REM ** BUEN ATERRIZAJE ** 

1710 FOR1*1TOS : POKEV+39,1:FORZ*200TO255STEP5 : P0KE54273,Z:POKEV+39,12:NEXTZ,I 
1720 POKEV,0 : POKEV+1,0 

1730 FÜRI=1T03:JJ=INT<RND(0>*200>+1424:F’OKEJJ,42:POKEJJ+54272,6:NEXTI 
1733 SC*SC+(350-T)+PR12 

1735 PR I NT " lililí ; SC 

1790 GQTO110 

1800 REM ** FINAL TIEMPO AGOTADO ** 

1810 POKEV+21,0:PRINT" ¡T :POKE53280,7:P0KE53281,7:PRINT" 

1820 PRim u JsmmmmEL tiempo se ha agotado." 

1830 PRINT ,, MW»WflS CONSEGUIDO : 9 ";SC;"i PUNTOS" 

1880 GOTO1950 

1900 REM ** FINAL PARACAIDISTAS AGOTADOS ** 

1910 POKEV+21,0:PRINT":PQKE53280,7:P0KE53281,7:PRINT" S3" 

1920 PRINT"JIIIlfilIlttJlilirTE QUEDASTE SIN PARACAIDISTAS." 

1930 PRINT"íOTiHAS CONSEGUIDO: Sü ";SC;"1 PUNTOS" 

1950 P0KE54273,0:P0KE54296,15:P0KE54276,17 
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_E TU ORDENADOR 


Ordenadores: 


Cómo funcionan .cual comprar, 

, para que sirven 

I \ A 
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C*>u ( 


curso 


Viene de la 

0 i 

1955 

o 

1957 

o 1 
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o 1 

1962 

o 

1964 

o 1 

1966 

o 

1968 

o 

1969 

o 1 

2000 

o I 

2010 

o 

2020 

O I 

2038 

o 

2848 

O 1 

2220 

o 1 

2222 

o I 

2224 

o 1 

3000 

O 1 

3004 

o 

3010 

O 1 

3020 

o 1 

3022 

o I 

3030 

o 1 

3032 

o 1 

3040 

o 

3042 

o 

3050 

0 1 

3052 

o 1 

3060 

o 

3062 

o 1 

3065 

o 1 

3067 

O 1 

3070 

O 1 

3072 

o I 

3075 

0 1 

3077 

o 

3080 

o 

3082 

0 1 

3084 

o 1 

3086 

0 1 

3088 

0 ! 

3100 

o 

3110 

o 

3120 

o ! 

3130 

o I 

3132 

o 1 

3134 

o 1 

3136 

o 

3138 

o 

3140 

0 1 

3142 

o 1 

3144 

0 1 

3146 

0 

3148 

o 

3149 

O 1 

3150 

0 1 

3152 

0 I 

3154 


página anterior 


F0RI-1T03 : FORJ-40TO250STEP3•P0KE54273,J = NEXTJ : FORJ=250TÜ40STEP-3 
P0KE54273,J:NEXTJ,I :P0KE54273,0:P0KE54276,6•POKEV,0:PÜKEV+1,8 
PRINT"WWNMIHBQTRA PRRTIDfi ? <S/N>" 

GETT$ : IFT$=""THEN1362 
IFT$*"S"THEN80 
I FT$<¡>" N" THEN 1362 

PR I NT" ¡T ■ PR INT 11 103 n 

END 

REM ** RUIDO EXPLOSION ** 

P0KE54276,129:P0KE54273,48:PQKE54296,15 
FQRW=6T015STEP.3 ; P0KE54296,W:NEXTW 

FORW=15TO0STEP-. 3 : PÜKE54296,W:NEXTW:P0KE54296,15 :P0KE54273,0 
RETURN 

U-U-.2 : T~INT <U) 

PRINT 11 ft»üaiBiili»»»ftBiiii|B»lii»|i»i»9i«iir;i lllll ; T 

RETURN 

REM INSTRUCCIONES ** 

P0KE54276,17:P0KE54296,15 

F'RINT"¡T : P0KE53288,7: P0KE53281,7 : PRINT"a": PRINT"WWWM" 


s$="a i ^ ^ a 

GOSUB3800•PRINT 

1 ! sr ^! 

a 

■ sr 


a 

■ 

a 

^ 1 

a ! a 

!■ 

5A 

IB 

ar 





Sí="a «asas 
GO5UB3S00 PRINT 

■i 

TO 

■f 

TO 

a 

!B 

K 

IB 

a 

i 

a 

■ 

a ■ 

a a 

a 9 a ! 

a 

■ 

a a 

a 

a 1 

>• -0 nr "] m -j 

G0SUB3800 :PRIÑt" 

W a ! 

a 

! a 

! 

a 

9 

a 

! : 

a i a 

! a ! 

a 





s$= ,! a ■ asai 

GOSUB3800 : PRINT 

■1 

75 

f 

75 

a 

! a ■ 

a 

■ 

a 

■ 

a i 

a ! 

a ! a ! 

a 

■ 

a a 

a 


s$= n a s asas 

a ^aa a 

a 

! a ! 

a 

! 

a 

■ 

■i 

TO 

a w 

a ! a ! 

a 

a 

a a 

a 

B 1 


GOSUB3808 : RRINT 

PRINT"»%)ÍÍMIÍir; :S$="Í¡¡«J.A. FERNANDEZ VILLORIA!" : GOSUB3808 ; F'RINT"M" 
S*=" COMMODORE MflGfiZINE"•GOSUB3808 ; PORI=1TO1680:NEXTI 

PRINT"¡T 

S$*" Í3SÍINSTRUCO 10NESB3" • GOSUB3800: PR I NT" WW" 

PRINT"ESTE JUEGO CONSISTE EN HACER SALTAR DE»" 

PRI NT "UN, AVION UN PARACAIDISTA, V HACER QUE»" 

PRINT"ATERRICE EN UNA BASE MOVIL.»" 

F'RINT"NO DEBES TOCAR CON TU PARACAIDISTA LAS»" 

F'RI NT "BOMBAS-ESTRELLA 3*¡¡¡2 QUE HAV EN EL CIELO»" 

PRINT"PUES SI LAS TOCAS TE DESTRUIRAS V M" 

PRINT"PERDERAS UN PARACAIDISTA. WWW" 

FORI=1TO2600 : NEXTI 


S$=" í PULSA UNA TECLA33" : G0SUB3888 
POKE198/0:WÁIT198,1 
PRI NT "^3" 

PRINT" 5¡¡CONECTA EL JOVSTICK EN EL PORT-2.53" 

PRINT".WF‘ARA HACER SALTAR AL PARACAIDISTA DEL»" 
PRINT"AVION, MUEVE EL JOVSTICK" 

PRINT"» «HACIA ARRIBA O HACIA ABAJO!" 
PRINT"»3iEN ESE MOMENTO SALTARA DEL AVION »" 

PRINT"UN PARACAIDISTA ,PERO CON EL PARACAIDASW8» 
PRINT"PARA HACER QUE SE LE ABRA EL PARACAIDAS»" 
PRINT" «¡PULSA EL DISPARADOR DEL JOVSTICK®3" 
PRINT":WQUE ACTUARA COMO LA ANILLA DEL Wailllllll 
FORI = 1TO2500 : NEXT I 

PR I NT : S$=" ¡¡PULSA UNA TECLA 33" : GOSUB3800: 

POKE198,0 : WAIT138,1 
PRINT"0" 


lUIIICERRADO»" 

IF’ARACAIDAS" 


I O 

I ° 
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I o 
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on oomrncxtore 

Ju _ Mn^izJju^ 


NUMERO 10 




















> PRINT"SSA PARTIR DE ESE MOMENTO PODRAS DIRIGIR»" 

3 PRINT"flL PARACAIDISTA HACIA LA DERECHA OM" 

3 PRI NT "HACIA LA IZQUIERDA CON EL SC3JOYSTICKS2H" 

2 PRINT"PARA CONSEGUIR QUE ATERRICE EN LA BASE." 

\ PRINT"MSTOEiISPONES DE 10 PARACAIDISTAS V DE UNW" 

3 PRINT"TIEMPO LIMITADO PARA CONSEGUIR EL " 

> PRINT"WMAVQR NUMERO DE PUNTOS." 

> FORI=1TO2500 : NEXTI 

! PRI NT"!»»" : S$="3J : 'ULSR UNA TECLA PARA EMPEZAR" : GOSUB3800 
2 POKE198,0 : WAIT198, 1 
!■ RETURN 

I FORI=1TOLEN < S$) 

! , CINTíRND<0>*240)) : FORZ= 1TO50:NEXTZ:PRINTMID$(S$, 1,1 ); 

i P0KE54273.' 0 : NEXTI : RETURN 
i REM ** SPRITES ** 

: PR I NT " ¡T ■ P0KE53281,7: POKE53230,7 
' PRINT"lISSMfclíWRDWMiMtJJN MOMENTO POR FAVOR." 
i V=53248 = P*192:A*193 = BA»194 = H=195 = E«196 = C*197:H2=19ñ 

i FQRI=12288T012350 : READQ■FOKEI,Q : NEXTI 
i F0RI=12352T012414 : READQ:POKEI,Q:NEXTI 
FORI=12416T012478:READQ=POKEI, Q : HEXTI 
i F ORI = 12480TO12542 •' READQ: POKE I, Q : NEXTI 
FORI=12544T012606: READQ ■ POKE I.. Q: NEXT I 
FOR1=12608TO12670:READQ:POKEI,Q:NEXTI 
FOR1=12672T012734=READQ:POKEI,Q:NEXTI 
F'OKEV+40,2:PÜKEV+41,11 
RETURN 

REM ** DATAS ** 

REM DATA PARACAIDISTA P ** 

Í!2Í S 1 ír 6 L® •’ k i * 23 ' 7 255,224.. 15,255,240,31,221,248.. 55,136,236.. 99,8, 70 
r2lS í 1 ' 17 ' 8 ' 72 ' 8 '136,136,4,136,144,2, 73,32,1,73, 64,0, 170,128 

DATH 0, 1 ¿7,0, y, 28, 0, 0,8, 0, 0, 28,0, 0, 54, 0, 0.34, @ 

REM * DATA AVION A ** 

DATA 0,0,0,0,0,0,48,0,64,24,1,192,15,255,224,15,255,248,63,1,255,0,254,0 

1'¿48,0,3, 192,0,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0^0^0^0^0^0^0^0^0 
JUfiTH 0.' 0 .• 0 .■ 0.« 0.. 0 
REM DATA ** BASE BA ** 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,2,170,0,8,0,64,36,0,24,48,0,48,79,255,200,112,0,56 
DATA 127,255,248,63,255,240,31,255,224 

REM ** DATA HOMBRE H ** 

DATA 0,0,0,0,0,0,0,56,0,0,56,0,1,17,0,0,254,0,0,124,0,0,56,0,0,124,0 
DATA 0, 198,0,0,198,0,0,108,0,0,130,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
REM** DATA EXPLOSION PARACAIDISTA E * 

DATA 0,236,0,99,4,60,12,0,2,32,3,128,0,224,0,16,19,2,0,0,0,32,16,48,0,8,0 
DATA 1,5,64,0,145,0,0,0,0,4,56,128,0,56,0,1,17,0,0,254,0,0,124,0,0,56,0 
DATA 0,108,0,0,68,0,0,130,0 
REM ** EXPLOSION 2 C ** 

DATA 0,0,7,96,24,24,16,32,32/8,64,64,4,1,128,96,128,2,20,2,0,2,128,48 
DHTH 0,140,64,0,0,128,0,3,0,0,16,0,8,0,48,4,224,0,34,101.64,17.65,128 
DATA 0,230,16,3,88,64,0,248,128,1,116,0,0,0,0 
REM ** HOMBRE 2 H2 ** 

DATA 0, 0, 0,0, 0, 0,0, 0, 0, 0, 0, 0,. 0, 0, 0,0, 0, 0, 0,0., 0, 0, 0, 0,6, 3 ,0, 3, 6, 0, 1 , 140, 0 
DATH 0,216,0,0,248,0,0,248,0,0,112,0,0,248,0,1,252,0,2,34.0,4.113.0 
DATA 2,114,0,1,116,0 


NUMERO 10 










VIC 20 


Andrés Portas Afenjar, de Málaga, 
es el autor de este programa que no es 
ni más ni menos que un OTHELLO 
para el VIC 20 sin ampliación de 
memoria. OTHELLO es un apasio¬ 
nante juego que se desarrolla sobre 
un tablero de 8 x 8 casillas. Cada 
uno de los dos jugadores (en este ca¬ 
so uno de ellos es el VIC) debe ir co¬ 
locando fichas de su color por tur¬ 
no. Una ficha sólo se puede colocar 
en una casilla cuando entre esa ficha 
y otra del mismo color ya colocada, 
queden encerradas fichas del contra¬ 
rio, ya sea en horizontal, vertical o 
diagonal. En ese momento, todas las 
fichas encerradas del contrario cam¬ 
bian de color, pasando a ser nues¬ 
tras. Como es lógico gana el jugador 
que consiga tener más fichas de su 
color al terminar de situar la última 
sobre el tablero. 

En este programa las filas y colum¬ 
nas del tablero vienen designadas por 
números y letras respectivamente. Una 
jugada se introduce tecleando prime¬ 
ro el número y después la letra. 

Puede ocurrir que el jugador llegue 
a un punto en el que no pueda colo¬ 
car ninguna ficha, entonces debe pul¬ 
sar la tecla «P» para indicarle al VIC 



PREMIADO CON 



WYc 


PESETAS 


qué «pasa», con lo que el ordenador 
saltará turno y realizará su jugada. 

El juego es muy entretenido y, aun¬ 
que el programa no sea quizá dema¬ 
siado «agresivo» en su juego, permi¬ 
te aprender a jugar y ensayar todo ti¬ 
po de estrategias de ataque. 

Para los que quieran meterse en 
modificaciones o simplemente enten¬ 
der cómo está hecho el programa ad¬ 
juntamos una descripción de la es¬ 
tructura del mismo: 


3 — 

100 — 

110 — 170 

180 — 192 


200 

230 

260 

300 

500 


700 

800 

999 

1000 
2000 


— 229 

— 240 

— 270 

— 400 

— 560 


720 

830 


1010 

2070 


Apertura de sonido I 

y color de la panta¬ 
lla 

Comprobación de la 
jugada en caso de 
que la casilla esté 
ocupada 

Comprobación de 
que la jugada es po¬ 
sible 

Deducción de las ca¬ 
sillas que cambian 
de color y sonido 
Dibujo de tablero 
Dibujo de las fichas 
de partida 
Puntuación de cada 
jugador 

Jugada del ordena¬ 
dor y comprobación 
Introducción de la 
jugada del adversa¬ 
rio y comprobación 
Inicialización 
Comprobador de las 
puntuaciones 
Música 

Dibujo de las fichas 
Resultado y fin de 
juego 


O | 3 32*36875 : PÜKE36878,Ib : PGKE36879,25 : G0TQ788 

O | 100 8=0: I Ffl < R, V > O0THENRETURN 

o i 110 FÜRI = 1108 : W=R •• Q=V : : K= 1 

O 120 W=W+N(I>:Q=Q+C<I) 

O 1 130 IFFK W .* Q) =0THEN 192 

° 1 140 IFñ<W,Q>=TTHEN170 

O | 150 K*K+1 

O | 160 GOTO120 

O i 170 S=S+K-1 

O 180 IFF=0THEN132 

O 185 F0RL= 1 TDK ■’ fi<R+ íN< I >*L>, V+ <C< I)*L> )=7 : J=R+N<I)#L : 11=’V+C< I >*L 

O 186 PÜKES2,195 : G0SUB1008 : FORD*1T048:NEXTD•P0KES2,0•NEXTL 

O | 198 ñ (. R.. V > = T : J=R : U=V : GOSUB1808 

O | 192 NEXTI:RETURN 

O 


-jn oommoc 

_ Mcig^a. 


TKxIora 

,ZJJU9_ 
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200 L11*7703 • BV-38720 

215 PF: 1 NT 11 rZSMMSÜfci fi E C D E F G H ■" 

22ü F0RF=1T08 : PRINT !! ÜÜI jTT ,,, "“n r'T~T“l ! • PRINT litt i i » i a i a i ¡ : NEXT 

225 PRINT”IU¡a ñBCDEFGH ■" : PR I NT : SD=49 

226 PRINT >l HÍId ,, CHR$(SD> ,! ii»»>Í»>ÍÍÍM»Í»i :> CHR$<SD) :PRINT"WWI 11 

227 SD*SD+1 

223 IFSD-57THEN230 

229 GOTÜ226 

230 LK=5 : J=4 ; U-4 : GOSUB1000 ; J-5 : U=5 ; GüSUB i 000 : LK*2 '■ J*4 ; u=5 ; GOSUB1000 
240 .J—o : ¡.1=4 • GOSUB 1000 ; SC-2 : 3H—2 

260 F'RINT".¿9 MlSfiíVIC5 ; 3”; SC; "l¡ :: : PRINT n »iiÍ»niiiÍMi>»ianTU5: 3 :1 ; SH.¡ II " 

270 RETURN 

300 PR I NT" i^MpMpIpípípMIíT 1 SF’C < 246 > " !l ; LK=5 ; M*8 : F=0: T=C 

305 F Ü R R * 1T Ü 8 ; F Ü R V * i 7 O 8 • G Ü S U B10 0 

310 IF3<M7HEN34J0 

330 M=S : X=R : Y*V 

340 NEXTV..R 

350 IP H=0THEN380 

360 F=i : R=X : V=V : PR INT SPC <246 > '• MI JUGfiBñ-1 "CHR$ CR+48> " -" CHR$< V+6 

4) 

370 F ÜRF-1TÜ580 ; NEXT : GüSU£188 : GÜSUB880 : GOSUB268 

388 IFM-0ñNDH$ ="F’ 1! THEHPRINT"SiíliíílMiíMSíeíilW''SPC<246> ’ ! NO PüEDO ¡10VER ! 1 ; GOSUB900 : GOSUB 
2880 

398 ¡FH*0THENPRI NT !! SPC <246) ,! NO PUEDO MOVER : GÜSUE988 • FORT* 1TO2000 ; N 
EXT 

408 IFSC+3H=64THENGOTO2000 

588 PR I NT ” mzmmmmm 1 SFC < 246 > "TU JUGfiBR : 5 iVflllfi" , : POKE i 98 ,0 
505 GETH$:IFH$=""THEN505 

507 IFH$ ; -" P" THENF’F: I NT ; PR I NT : Tüilíi P Fi S O 1 ; G0SUB98Ü • FORT* i TQ1508 ; NEXT : GOT0300 

518 ÍFH$<”i"ORH$> M 8"THEN505 


515 F!*fiSCCH$) -48 : PRINTR"lh" ; :POKE198,0 
520 GETñ$•IFfi$=”"THEN528 
525 I Fñ$< "ñ"ORfl$>"H"THEN520 
538 V*fiSC( fí$) -64:PRINTCHR$<V+64> 

540 LK*2:T=H:F=0:GOSUB100:IFS*0THEN500 

550 F=1 : GOSUB108 ; GOSUB880 ; GOSUB260 : IFSC+SH*64THEN2000 

560 GOTO300 

700^IMflO,3> J NO),C<9):N<n=-l:CCl>=-l:N<2>=-l:C<2)=0:N<3)=-l:C<3) = l:N(4)=0:C<4 

710 N<5)=0 : C<5) = 1 N(6)= 1 :C(6)=-1 : N<7)=1 •'C(7>=0 : N(8>«=1 : C(8> = 1 

7¿’0 C— 1 : H= 1 : ñ < 4,4 > =C: ñ C 5,5 > =C: ñ (4,5 > =H: ñ < 5,4 ) =H ■ GÜSUB200:0010500 

300 SC=0: :¿H=0 : FORF= 1 TOS : FORT = 1 TOS 

810 IFfiíF/T)=HTHEHSH=SH+1 

320 I FfK F, T >=CTHENSC=SC+1 

330 NEXTT , F : RETURN 

?000 F SnIlmÍu*44> J +!SÍ'? 5T ° 240STEP - 4 : P0KES2 ' 12: HEXTI2 ' TR: P0KES2 ' 01RETURN 

.< 20 ? • POKEMN+BV .• LK ; POKEMN+1.. 208 • PQKEMN+BV+1 .• LK ; PQKEMN+22* 204 : PGKEMN+BV 
1010 POKEMN+23, 250: POKEMN+BV+23 .. LK : RETURN 

2000 FORI * 1TO2000: NEXT : I FSH>SCTHENPR I NT" mmmmMM" í=¡pr :246 >» HfiS GFlNfinn 
2G10 IFSFKSCTHENPRI F-l T 11 ’ ! SPC < 246)" HflSPERDIDO " 

2020 I FSH*SCTHENPR I NT 1 ' SPC < 245 ) "HHEMOS EMPñTftDO " 

2030 PR I NT " IMiBTRñ VEZ ? < S/H ) 1" ■ POKE 198.0 

2040 GETR$ : I Fñ$= 11 " THEN2848 

2058 IFfl$="S"THENRUN 

2060 IFR$="N"THENSTOP 

2078 GOTO2040 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 
Sistema Commodore 
Puede Hacerle Ganar 5.000 Ptas. 

■ LA DECISION SOBRE LA PUBLICACION 
O NO DE IJN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE”. 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 

CONCURSO COMMODORE MAGAZINE 


E L PRESENTE 
CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO I)E ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 


■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS 5.000 PTAS. 

















Nuevo curso de ordenador personal y programación Basic 


SI VAS A SEGUIR VIVIENDO 
EN ESTE PLANETA NO TE QUEDES 

DESCONECTADO 




Ahora puedes hacerlo de una 
forma sencilla y divertida. Con un 
dedo de la mano. Sin saber una pala¬ 
bra de inglés. Y sin moverte de casa. 

Gracias a un curso claro y entre¬ 
tenido que te ayuda a sacarle al or¬ 
denador todo lo que tiene dentro. 

Por supuesto que no te estamos 
hablando de un Manual de Instruc¬ 
ciones, y allá tú. Se trata de un pro¬ 
grama de aprendizaje muy práctico, 
diseñado por especialistas, para 
que nadie se aburra a mitad de ca¬ 
mino. 

Es, para que te hagas una idea, 
como un viaje organizado al futuro. 
¿Quieres una plaza? 


curso? 


Te ofrecemos 12 manuales de 
lecciones explicadas paso a paso. 

Te ofrecemos, si no tienes orde¬ 
nador, el COMMODQRE 64 . el más in¬ 
teresante del mundo, para que prac¬ 
tiques desde el primer momento. Te 
ofrecemos un cuadro de profesores 
que te orientan continuamente en tu 
aprendizaje. ¿Qué pones tú? Pacien¬ 
cia. Y un poco de voluntad. 

Con esos dos instrumentos te 
garantizamos que en seis meses 
serás capaz de operar con cual¬ 
quier programa que adquieras y 
algo que te gustará más: podrás 
crear tus propios programas para 
uso profesional o personal: gestión, 
administración, archivo, estadística, 
juegos, estudios... Verás qué diverti¬ 
do es tener paciencia. 



Este es un curso diferente a todos los que 
conozcas. Es serio, pero sabiendo que no eres 
una máquina. Es divertido, pero sin olvidar que 
tienes que sacarle partido. 

Consta de los siguientes elementos. 

- 12 manuales de lecciones, preparados pa¬ 
ra aprender enseguida sin perderse en teorías. 

- 1 anexo de equivalencias. 

- Optativo: Un ordenador personal 
COMMODQRE 64 , con su unidad de cassettes 
para practicar desde el primer minuto, porque 
como se aprende a dominar los ordenadores es 
trabajando con ellos. 

- Amplio número de programas y una orien¬ 
tación continuada de tus profesores. 

- No son necesarios conocimientos especia¬ 
les de ningún tipo. 

- Duración = Seis meses aproximadamente 
dedicando dos horas diarias. 

-Sistema de aprendizaje: A distancia. 

Cada manual incluye ejercicios amenos pa¬ 
ra realizar en el ordenador. El profesor contesta a 
vuelta de correo con las correcciones y los con¬ 
sejos necesarios. 

- Precio: El curso completo por algo más 
del precio del propio ordenador. Y con facilidades 
de pago. 




Centro de Enseñanza a Distancia autorizado en aplicación del Decreto 2641/1980 


Otros de los 
cursos CCC: 

- Electrónica. 

- Radio, TV. 

- Técnico en 
Energía Solar. 

- Instalador 
Electricista. 

- Técnico en 
Fontanería. 

- Graduado Escolar. 

- Guitarra. 

- Contabilidad. 

- Mecánico de motos. 

- Dibujante de cómics. 

- Inglés (con casette 
o por video). 

- Auxiliar Enfermera. 

- Puericultura. 

- Estheticiene. 

- Peluquería. 

- Masaje y 
Digitopresión. 

- Corte y Confección. 


Para hablar con los dedos, 
te echamos una mano 

El idioma del futuro, se practica con los 
dedos. Si quieres aprenderlo, la oportuni¬ 
dad está en tu mano.- Envía este cupón. 

Deseo información g ratis y sin compromiso 

sobre el curso de: 

Nombre y Apellidos 


Población 

Provincia 


CCC Servicio 24 horaS 
® 943*467600 

Envía este cupón a: 

CCC Apdo 666 /oa CCC, Apdo 17222 
20080 San Sebastián / 28080 Madrid 

I C6 — — 1 






















Solitario es un juego de naipes que 
nos remite Miguel Angel Rodríguez 
desde Cáceres y que puede ejecutar¬ 
se en cualquier ordenador VIC, pe¬ 
ro siempre que lleve alguna expan¬ 
sión de memoria ya sea de 3K, 8K ó 
16K. El juego consiste en hacer des¬ 
aparecer de la pantalla las 16 cartas 
que aparecen en cuatro columnas nu¬ 
meradas de 1 a 4. Para ello hay que 


auxiliarse de otra carta que aparece 
en el ángulo superior derecho de la 
pantalla. Los naipes van todos ellos 
numerados de 1 a 8. Para retirar una 
carta de una de las columnas hay que 
mirar primero la carta del ángulo, ya 
que sólo se puede retirar o la inme¬ 
dita superior o la inmediata inferior, 
esto es, si la del ángulo es un 5, sólo 
se pueden retirar o un 6 ó un 4. Ade¬ 


PREMIADO CON 





PESETAS 


más, sólo se pueden retirar las car¬ 
tas inferiores de cada columna y no 
una carta cualquiera. Para retirar 
una carta basta con pulsar la tecla del 
número correspondiente a la colum¬ 
na en la que se encuentra la carta. 

Cada vez que se retira una carta 
ésta pasa a convertirse en la carta de 
referencia para retirar la próxima 
carta. 

Si en algún momento no se puede 
retirar ningún naipe hay que pulsar 
la tecla 0 con lo que aparecerá una 
nueva carta de referencia sacada del 
mazo. 

El programa se estructura según 
indicamos en las líneas siguientes: 


8 

— 50 

Se crean las 32 
cartas 

60 

— 

M$= carta ta¬ 
pada 

120 

— 165 

Dibuja tablero 

170 


Saca carta de re¬ 
ferencia, mazo y 
número de las 
cartas 

200 

— 250 

Rutina principal 

100 

— 120 

Eli je 17 cartas al 
azar 

1000 

— 1050 

Rutina de im¬ 
presión carta de 
referencia, mazo 
y número de car¬ 
tas del mismo 

1600 

— 1650 

Verifica que la 
jugada es correc¬ 
ta 

2000 

— 2040 

Saca cartas del 
mazo al pulsar 

0 

3000 

— 4000 

Mensajes de fra¬ 
caso o éxito 

5000 

— 5095 

Instrucciones del 
juego 
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PERSONAL COMPUTER 
MUSIC 




¡SOFTWARE 

INCLUIDO! 




DISTRIBUIDO POR: 


El teclado Music-64 se conecta 
directamente a su Commodore 64 y 
permite utilizarlo como sintetizador 
monofónico o polifónico con un 
diseño que armoniza perfectamente 
con el computador. 

Se puede disponer de los siguien¬ 
tes instrumentos: 


Música en su Commodore-64 
con el teclado MUSIC-64 


Trompeta. 
Brass. 
Clarinete. 
Campanas. 
Flauta. 


• Piano. 

• Organo eléctrico 

• Acordeón. 

• Guitarra. 

ETC.. 


• Ataque. 

• Caída. 

• Volumen, 
que dotan al 


Sostenimiento. 
Forma de onda. 
ETC... 

Commodore 64 de 


con posibilidad de cambiar las ca¬ 
racterísticas parametricas de cada 
uno: 


unas increíbles posibilidades mu 
sicales 



• COMPONENTES ACTIVOS 

• COMPONENTES PASIVOS 

• CIRCUITOS INTEGRADOS 

• MICRO-CIRCUITOS 

• ORDENADORES PERSONALES 

• HARDWARE 

• SOFTWARE 

• KITS 

• INSTRUMENTACION 

• HERRAMIENTAS 

• BIBLIOTECA TECNICA 

• ETCETERA 

ESPECIALISTAS EN 
VENTA POR CORREO 
LA FORMA MAS COMODA Y 
SEGURA DE RECIBIR EN SU 
PROPIA CASA TODO LO QUE 
NECESITE EN ELECTRONICA 
MAS DE 30.000 PEDIDOS SU¬ 
MINISTRADOS NOS AVALAN 


MUEBLE M-100 

IDEAL PARA TU 
ORDENADOR Y 
ACCESORIOS 



Gastos de envío. 800 ptas. 


MEDIDAS: 81 cm. Ancho X 79 cm. Alto x 46 cm. Fondo 


[Di digital s.a. j 


TIENDA 

C/ Pilar de Zaragoza, 
28028 MADRID 
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Viene de la página anterior 
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1 DI MC$ (4,8},B$(32),Q$ < 32),ñ < 4) 

2 PRI NT " ^I^»ÍSÍ!I««SÍ3U I ERES INSTRUCCI ÜNES79IIIPISK S/N) " 

3 GETñ$ : IFñ$=""THEN3 

4 IFñ$="S"THENGÜ3UB5000 

5 PRINT” IT :PQKE36878,15 

7 P0KE36S73,33 

8 X$=”12345678":V$="*#+* 

3 B$= n a/—¿aiain íuiiihuí i*iiiiií í*iiiu— ■ 
id Bü$="fi¡i jüihiií iBiiHi üiikhí ?iaaai 

12 MM-1 

15 FÜRI-1TÜ4 
20 FÜRV-1TÜ8 

30 e$=m i n$ <; x$, v, i >+m i d$ < v$, i, i > 

35 n$= ,! aairm 11 +left$ < e$ , i >+ "m u +r i ght$ e$ , i > 

40 C$a,V>=B$+N$ 

45 Q$<MM>=C$<I,V>:C$<I,V> ="" 

47 MM-MM+1 
50 NEXT : NEXT 

60 M$= " XxX>ÚSl III DüO&ÚÜ ■ H 8 frCKXXXlV i i i<XXXJSi III ¡XXXX ! 1 
100 FORTT=1T017 
105 H~INT < RND <T I > #32+1 > 

10 i I FQ$ < H > =" THEN105 
110 D$<TT> =Ü$H> :Q$<;H> = " n 
120 NEXT 

131 PR I NT !! 1 

132 Z$="1222233334444” 

134 FÜRH=1TO13STEP4 

13 5 P 0 K b36876 .• 220+H 

i 36 PR INT TñB(H>MI B$Z$ .■ H, 1) j : FÜRVV= 1TÜ130 ; NEXT ; F0KE36876 .• 3 ; NEXTH 

142 P$= n SP:C=0 

144 FGRRR=1T016 

145 P0KE36876,236-RR 

146 PRINTP$;TñB<C>;B*<RR>; 

148 0=0+4 ; IFC= 16THENP$=P$+'' : 0=3 

143 FÜRVV= 1 TÜ 1001 : NEXT : PÜKE36876 .■ 3 
153 NEXTRR : Cfi$=B$(17) : SS=17 

160 PÜKE36875,210-PRINT"TñB18 ).;m 
165 FÜRVV=1TÜ50 ; NEXT:PÜKE36875,6 
173 GÜSUB1008 

233 PÜKE36875 .• 233 ; FÜRVV= 1 TÜ i 33 : NEXT ; PÜKE36875, 0 

205 PR I NT ” 1! ; : INPUT" R©E QUE COLUM. "; CÜ: PRI NT ,! 3T]' 1 

210 IFCÜ<0ÜRCÜ>4THEN200 

220 IFCÜ=0THENWW= S WW+1 : GOTO 2333 

230 GOSUB1600: I FHH= 1 THENriH=0: GGTÜ200 

235 Cñ$=D$<TT> 

243 PRINTP$;BÜ$ ; ñ(CÜ >=ñ<CÜ>+4 : B<CÜ>=B<CÜ > +5 ; GÜSUB1303 
245 CC-CC+1 ; PRINT ,, 3" : IFCC=16THEN4300 
250 HH=3•GÜT0200 

1003 PÜKE36876, 220+1 NT < RND <0> #20) • PR I NT 1 ; Cñ$ 

1310 FÜRVV=1TÜ133 ; NEXT : PÜKE36876 ¿ 0 

1020 PRI NT ” :PM«PMPlPlBJíÍ>Í»»Í»Íi»BiÍI*liiií1ñZÜ= 

1025 I h 15-WW< 13THENPRI NT TñB < 17 > " ! • PR I NT :: TV' 

1030 PR I NT ” 15-WW 

1340 PR 1 NT " >iWIIHIiilillliBPilCñRTñS' 
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1050 RETURN 
1500 P$-"S¡i ,f 
í 505 FORR- 1T0i 5-B< CO > 

1510 P$=P$+"H‘ ! : NEXT 
1515 IFLEN < P$ > =2THENP$= :! S" 
1520 I FC0=2THENP$»P$+" ***»! 


í 





1530 I FCO*3THENP$*P$+ :: 
i 540 I FCG=4THENP$=P*+ 

1538 RETIJRW 

1660 TT=i2+CO-A<CO) 

1605 I FE < CO)>15THENG0SUB1630:GOTO200 

1610 A=VRL < MI D$ < D$ < TT >, 50, i) > ■ B=VAL < MI J}$ < Cfi$, 50, 1) > 

1620 IF E+1 =RORE-1 -ñTHENGOSUE i 500: GOTO 1650 
1625 HH=1 

1630 P0KE36874, 200 : FRINT"SS«"TAB<17> ■ 3ERROR® 

1635 FORVY* 1TO20@0 : NEXT : P0KE36S~'4,0 
1640 F'RINT"SSIfi" i TflB<17);" 

1650 RETURN 

2000 SS=SS+1:1FSS>32THEN3000 
2010 R=INT <RNH(11>#32+1) 

2012 IFQ$(R>=" "THEN2018 
2015 D*<SS>=Q$<R) : Q$<R>=" 

I 2020 Cñ$=D$<SS) 

I 2030 PRI NT " íftaSítólsMíMíT TRE (18) Cfl* 

| 2635 FORT*i TOÍ 600 • NEXT : PRINT" mmQmim "IRE < 1S >r1$ 

2037 IF3S=32THENPRI NT " RíüIíWiSiSMiaüaT' TRB < 18 > B0$ 

2040 GOSUB1000=GOTO280 

3000 r'R I NT " íMíleiüHMiílíI STE HAN QUEDADO " : F'R I NT " :«iii*iia r i 6-CC i " CARTAS!" 

I 3010 FRINT"MM SjTRR VEZ <S/N)?S" 

I 3020 GETK*■IFK$=""THEN3020 
3030 IFK$*"S"THtNRUN 
3640 IFK$<>" S" fiNBKfO"N"THEN3020 
| 3058 ENE 

4600 F'RINT' HAS CONSEGUIDO®" 

| 4610 PGKE36878,15 : F0RXX=1TG35 : RERE i : P0KE36876, T : FORM=1TO150 : NEXTí'1 • NEXTXX: GGTO30 

10 

i 4820 DRTR8.. 0.. 8, 1 '35,203,203.215,213,203,213,2 i 5 

4036 DRTfl135,203,203,215,213,203,287,207,263,203,215,213,221,213.215 
4640 ERTR203,287,i35,201,267,203,283,8,8 
I 5006 REM ##INSTRUCCIONES## 

¡ 5010 F'R I NT " 21" 

i 5020 PRINT"DEBES HACER DESRPRRE- CER LAS 16 CARTAS DE LA PANTALLA COMENZANDO PO 
R LA"; 

5038 F'R INT" DE ABAJO DE CADA COLUMNA."; 

5046 PRINT" PARA HACER DESAPARECER UNACARTA DEBE SER LA INMEDIATA INFERIOR O 

5050 PR I NT" SÜPE-RIQR ñ Lfl QUE RPflRECE ñ LR DERECHA LE LH PANTALLA" ¡ 

5068 PRINT ', PULSANDO EL NU-MERO DE COLUMNA CORRESPONDIENTE." 

5070 PRINT" SI NO PUEDES QUITAR NINGUNA, PULSA EL 0 y PARA SACAR NUEVA CARTA 
5030 PRINT"DEL MAZO" 

I 5085 PRINT"»» SFULSA UNA TECLAS" 

5030 GETT$:IFT$=""THEN5090 
5035 RETURN 
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Software comentado 


PROGRAMA: 

CONTABILIDAD PERSONAL 
TIPO: GESTION 
DISTRIBUIDOR: INDESCOMP 
FORMATO: CINTA 
DE CASSETTE 

ORDENADOR: COMMODORE 64 

Bajo el nombre de contabilidad 
personal se incluyen en la cinta tres 
programas distintos. El primero es 
propiamente la contabilidad personal 
destinada al usuario que quiere llevar 
las cuentas de su casa. Esta contabi¬ 
lidad tiene un funcionamiento simi¬ 
lar a las contabilidades comerciales 
basadas en el sistema de asiento do¬ 
ble. Este sistema aunque muy útil es 
difícil de manejar por aquellas perso¬ 
nas que no tengan experiencia conta¬ 
ble, teniendo en cuenta además que 
el manejo no es muy claro. El progra¬ 
ma permite hasta un máximo de 144 
cuentas. Cada una de éstas puede ser 

PROGRAMA: 

REVENGE OF THE MUTANT 

CAMELS 

TIPO: JUEGO 

DISTRIBUIDOR: INDESCOMP 
FORMATO: CINTA 
DE CASSETTE 

ORDENADOR: COMMODORE 64 
CON JOYSTICK 

Este juego es la continuación de 
otro denominado «el ataque de los 
camellos mutantes» que tuvo cierto 
éxito cuando apareció. En «la vengan¬ 
za de los camellos mutantes» contro¬ 
lamos un camellos que debe recorrer 
distintos sitios (pantallas) antes de lle¬ 
gar a su destino, cada uno de estos lu¬ 
gares se va desplazando por el fondo 
de la pantalla de derecha a izquierda 
mientras nosotros caminamos en sen¬ 
tido contrario. 

Para su funcionamiento es nece¬ 
sario tener un joystick conectado al 
port 2. Una vez hecho esto se carga 
la cinta, después de lo cual nos.apa- 
rece la pantalla de presentación. Pul¬ 
sando una «o» tenemos acceso a una 
lista de opciones que podemos modi¬ 
ficar si queremos. La primera nos 
cambia la secuencia de pantallas. En 
el modo secuencial debemos jugar 42 



de uno de cuatro tipos, DEPOSITOS, 
DEBITOS, GASTOS e INGRESOS. 

La contabilidad en sí tiene un fun¬ 
cionamiento sencillo (si exceptuamos 
los comentarios anteriores) en la en¬ 
trada de datos y permite la obtención 
de 4 balances. Un balance general, ba¬ 
lance de cuentas de gastos,, de depó¬ 
sitos y de ingresos y gastos. 

El siguiente programa, denomina¬ 
do «AMORTIZACION» permite el 
cálculo de intereses de los préstamos 
y de los depósitos bancarios que ten¬ 
gamos depositados. El funcionamien- 



pantallas distintas una detrás de otra, 
permaneciendo el orden de las pan¬ 
tallas inalterable. En el modo aleato¬ 
rio (random) sólo hay 32 pantallas y 
su orden de aparición es calculado al 
azar, de modo que nos puede apare¬ 
cer la más difícil al principio y la más 
sencilla puede ser dejada la última, es¬ 
te es un método sencillo de cambiar 
de pantalla cuando ya estamos har¬ 
tos de las primeras y no logremos pa¬ 
sar a las siguientes. La segunda op¬ 
ción permite seleccionar uno o dos ju¬ 
gadores. En caso de elegir esto últi¬ 
mo los jugadores se van turnando en 
el juego cada vez que uno pierda una 
vida. La tercera opción selecciona el 
tamaño de cada pantalla. Esto signi¬ 
fica que cuanto más larga sea una 
pantalla (por ejemplo 19 kilómetros) 
más tiempo permaneceremos en ella. 

El manejo del camello es algo com- 


to es sencillo permitiendo la realiza¬ 
ción de unos cálculos básicos. 

El último programa permite llevar 
un fichero de direcciones muy senci¬ 
llo de cinco datos. Nombre, dos direc¬ 
ciones, y otros dos datos. Su función 
es similar a la de una guía telefónica 
y nos permite la búsqueda rápida de 
datos. 

Los tres programas están bien he¬ 
chos y funcionan sin errores. El ma¬ 
nejo es complicado y difícil de enten¬ 
der en un principio, por lo que hay 
que poner algo de constancia para do¬ 
minarlo completamente. 


PUNTUACION: 
UTILIDAD: 6 
PRESENTACION: 5 
CLARIDAD: 3 
RAPIDEZ: 7 


piejo y difícil de dominar en un prin¬ 
cipio. Moviendo el joystick a la dere¬ 
cha hacemos que el animal acelere el 
paso, mientras que si lo hacemos a la 
izquierda frena. Si lo desplazamos ha¬ 
cia arriba salta y si lo hacemos para 
abajo se sienta. También es posible 
realizar una combinación de estos 
movimientos, por ejemplo, pulsando 
el joystick arriba a la izquierda el ca¬ 
mello salta hacia adelante. Si quere¬ 
mos disparar (naturalmente nuestro 
camello tiene pistola) debemos pulsar 
el botón del joystick y mover el man¬ 
do en la dirección en la que queremos 
hacer fuego. 

Como ya hemos comentado el ca¬ 
mello va andando hacia la derecha 
mientras vemos pasar por el fondo las 
montañas, edificios y demás acciden¬ 
tes del terreno. Cada pantalla o lugar 
que visitamos se diferencia por el fon¬ 
do y por las cosas que nos atacan. Es¬ 
tas llegan a ser bastante sorprenden¬ 
tes, con bastante diferencia de los 
monstruitos típicos de otros juegos. 

PUNTUACION: 

ADICION: 7 
PRESENTACION: 6 
GRAFICOS: 5 
ACCION: 8 


/in oommodore 
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socio del Club de Soft de España! 

■ - :=s multitud de ventajas... 

- -rCibirás puntual información de las novedades 
3e soft que haya en el mercado, 
e enviaremos un catálogo bimensual que incluye 
-as de 200 programas para Commodore 64 y Spec- 

1 : crás adquirir programas con un 30% de descuen- 
i: por ser miembro del CLUB DE SOFT DE ESPA- 

Í - detendrás descuentos de hasta un 20% sobre 
•ardware. 



¿COMO PUEDES HACERTE SOCIO DEL CLUB DE 
SOFT DE ESPAÑA? 

— Sólo tendrás que abonar 1.000 Ptas. como cuota UNICA de ins¬ 
cripción. 

— Como regalo de bienvenida a nuestro CLUB de SOFT de ESPAÑA 
podrás elegir entre dos programas: 

AJEDREZ STARSHIP ENTERPRISE 

SOLO FLIGHT SLIPPERY SID 

para CBM-64 para SPRECTRUM 

Te enviaremos el programa elegido completamente GRATIS, junto 
con la confirmación de tu pertenencia al CLUB de SOFT de ESPAÑA. 





1 

CUPON DE INSCRIPCION 


1 

AL CLUB DE SOFT DE ESPAÑA 

Eraso, 12 - Tel. 24610 94 - 28028-MADRID 


1 

Nombre 



1 Dirección 




DIFUSION POR AMISTAD 

Habla a tus amigos de las enormes ventajas quesupone 
pertenecer al CLUB DE SOFT DE ESPAÑA. Si junto con 
tu inscripción se inscriben dos amigos tuyos por tu 
recomendación, te regalamos un programa de juegos. 


Ciudad_Tel_ 

Deseo pertenecer al CLUB DE SOFT DE ESPAÑA. Ruego me envíen como regalo de 

bienvenida al CLUB el programa_ 

Firma 

El CLUB DE SOFT DE ESPAÑA te enviará el programa solicitado, junto con un reem¬ 
bolso de 1.000 Ptas. más gastos de envío, como cuota de inscripción al Club. 

DIFUSION POR AMISTAD 



NOMBRE de un amigo_ 

Dirección_ 

Programa de regalo de bienvenida_ 

Firma 

DIFUSION POR AMISTAD 

NOMBRE de un amigo_ 

Dirección_ 

Programa de regalo de bienvenida 


Firma 




































Trucos 


Lo contrarío de NEW 
es OLD 

Seguro que más de una vez, traba¬ 
jando con algún programa en tu C-64, 
y en un momento de despiste has te¬ 
cleado NEW antes de haber guarda¬ 
do tu programa en cassette. Y NEW, 
que significa «nuevo» en inglés, ha 
borrado tu programa de memoria sin 
pararse a pensar si te habrás equivo¬ 
cado o realmente querías escribir 
NEW. 


Lo contrario de NEW es OLD (que 
significa viejo), así que ¿por qué no 
incluir una rutina con este nombre 
que haga exactamente lo contrario 
que NEW y que nos permita recupe¬ 
rar programas perdidos? 

Esto es exactamente lo que hace la 
rutina que presentamos a continua¬ 
ción. La forma de utilizarla es la si¬ 
guiente: antes de comenzar una sesión 
de programación hay que cargar la ru¬ 
tina, ya sea desde un cassette o dis- 
kette o tecleándola directamente, pues 
es cortita. Después de cargada se es¬ 
cribe RUN, con lo que se cargará en 
memoria la rutina en código máqui¬ 
na propiamente dicha. Después se es¬ 
cribe NEW para borrar la versión BA¬ 
SIC y ya está. Ahora se puede empe¬ 
zar a programar normalmente, ejecu¬ 
tar programas, corregir líneas y lo que 
se quiera. Y ya no hay que preocupar¬ 
se porque si por un despiste escribi¬ 
mos NEW, podremos recuperar el 
programa sin más que escribir SYS 
53200. Sólo un par de advertencias. 
Si después de escribir NEW por equi¬ 
vocación utilizamos cualquier coman¬ 


do como LIST, RUN o la tecla 
RUN/STOP RESTORE no pasará 
nada, todo seguirá funcionando. Pe¬ 
ro si definimos alguna variable o es¬ 
cribimos alguna línea de programa, la 
rutina no funcionará y no podremos 
recuperar el programa. En definitiva, 
la rutina está pensada para los que se 
dan cuenta de su error nada más ha¬ 
ber escrito NEW equivocadamente, y 
no para los que después de media ho¬ 
ra se dan cuenta de que aquel NEW 
que escribieron no querían haberlo es¬ 
crito. 


Creemos que con esta sencilla ru¬ 
tina se podrán evitar unos cuantos 
«berrinches» y esperamos que sea de 
vuestro agrado. 


Imprime donde quieras 

Una bonita presentación en panta¬ 
lla, ya sea de títulos, tablas de valo¬ 
res, gráficos o en general cualquier co¬ 
sa que se quiera presentar, da un cier¬ 
to encanto, un sabor especial a los 
programas. 

En Vic-20, para conseguir esta pre¬ 


sentación hay que mover el cursor an¬ 
tes de imprimir y ello se hace normal¬ 
mente incluyendo caracteres de mo¬ 
vimiento de cursor dentro de las sen¬ 
tencias PRINT. 

Sin embargo, este movimiento tam¬ 
bién se puede llevar a cabo desde len¬ 
guaje máquina haciendo uso de una 
rutina incorporada en el sistema. 

El programita que incluimos a con¬ 
tinuación puede incluirse en cualquier 
programa y permite desplazar el cur¬ 
sor a cualquier posición de la panta¬ 
lla con dos POKES y un SYS. Las lí¬ 
neas 10 y 20 son las que cargan la 
utilidad en el buffer del cassette (zo¬ 
na de memoria a salvo, menos cuan¬ 
do se está utilizando el cassette). El 
resto (de la línea 30 a la 100) es un 
pequeño ejemplo de demostración, y 
una vez visto puede suprimirse sin 
ningún problema. 

Para utilizar esta rutina hay que ha¬ 
cer lo siguiente. Primero hay que PO- 
KEar en la posición de memoria 251 
el valor de la fila (de 0 a 22), y en la 
252 el valor de la columna (0 a 21) 
donde se quiere empezar a imprimir. 
Luego SYS 890 hace que el cursor se 
coloque en la posición indicada (fila 
y columna). Ahora sólo queda la sen¬ 
tencia PRINT. 

Por ejemplo, para imprimir 
«COMMODORE» en la línea 10 y 
a partir de la columna 5, hay que es¬ 
cribir: 

POKE 252,5:POKE 251,10: SYS 
890: PRINT«COMMODORE» 

Esperamos que esta rutina pueda 
ayudarte a darle un aspecto más pro¬ 
fesional a todos tus programas. 


10 FÜR ft-890 70 897 ; RERE B •' POKE ñ.. E : NEXT 
¿0 DñTfi^24,166,251,164,252,76,240,255 

Í 1 ,- " ; FüR k>6 TG 18 : X-K : V-K : GÜSUB 100'NEXTK 

*- :F0R K=18 T0 0 STEP-l ; X=K : V=13-K : GC3UE 100:NEX7K 

5tí H*= " -M : FÜR K=1 Tü 17 STEF'4 : X=K : V=3 : GÜSUB 1 00: NEXTK 
60 Hj**= ZÍT!" • r OR K=« i 0 18 : X=9 : V=K: GÜSUB 168: NEXTK 
r'G END 

108 P0KE252,X:P0KE251, V:SVS 838:PRINTñ$;"HÜLfi":EETURN 


10 F0R 1-53200 T0 53223 

20 READA : POKEI jfí T"T+fí :NEXT 

30 IF TO1097 THEN PRINT "ERROR EN DATAS" 

35 END 

40 DATA 169.1,141,2,8,32,51,165 
45 DATA 24,165,34,105,2,133,45,165 
50 DATA 35,105,0,133,46,76,94,166 


49 nnmnioüui • 
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Envíanos la foto de tu ordenador 
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generalmente a los enchufes de co¬ 
rriente, siempre que estamos a punto 
de terminar un programa largo del 
que no tenemos copia. Está superde- 
mostrado que ese enchufe nunca se 
suelta cuando empiezo o voy por la 
mitad de los programas, ¡¡siempre al 
final!!» 

Pues nada, espero que os haya gus¬ 
tado mi instalación. 

Atentamente: 

Joan Raf Martín. 


¡Y luego hay quien dice que el 
Commodore 64 sólo sirve para jugar! 
Pues no, un ordenador de la catego¬ 
ría del C-64 puede servir para muchas 
y muchas cosas y una muestra de lo 
que decimos nos la proporciona J.L. 
Subías, un commodorero de Zarago¬ 
za, al que podemos ver en la foto al 
lado de su micro. 

José Luis ha conectado a su C-64 
nada menos que un osciloscopio (que 
es un aparato muy serio con el que se 
puede ver la forma de cualquier se¬ 
ñal elécrica además de realizar todo 
tipo de medidas sobre la misma). 

Concretamente, según nos comen¬ 
ta en su carta, en la foto puede verse 
sobre la pantalla del osciloscopio la 
envolvente, sostenimiento-relajación 
de una señal generada por el Commo¬ 
dore y medida sobre la salida de 
audio. 


Se anima nuestra petición de 
fotografías de los commodoreros. 
Ya tenemos algunas decenas de 
cartas y vamos seleccionando las 
mejores. Juan Martín , aparte de 
mandarnos la foto,\ ha escrito 
unas líneas describiéndonos su 
habitat con bastante humor. 


«En la foto se puede ver que el ca¬ 
ble de la antena sale del televisor y en¬ 
tra en la salida del ordenador (como 
en casi todos los ordenadores), y que 
el cable de la corriente del ordenador 
y del televisor se meten bajo esa es¬ 
pecie de mesita, convergiendo con el 
de la antena, que a su vez convergen 
con.... ¡¡mis piernas!! Basta que ha¬ 
ga un ligero movimiento para quedar¬ 
me sin programa. 

Después, y afortunadamente, no se 
ve en la foto, están el estabilizador de 
corriente para el televisor, el transfor¬ 
mador de 120 a 220 V. y el transfor¬ 
mador del ordenador, y, lógicamen¬ 
te, con sus respectivos cables enmara¬ 
ñados. ¡¡Faltaría más!! 

Tampoco se ve la toma de corrien¬ 
te. ¡¡Afortunadamente!! También ha¬ 
ce juego con el conjunto. Está fatal. 
El cable me quedó corto, y en vez de 
estar los enchufes apoyados en el sue¬ 
lo, ¡¡están colgando!! Y siempre me 
pasa algo con la «gravedad selectiva». 

Yo llamo «gravedad selectiva» a esa 
gravedad que hace caer a los cuerpos, 


oommodort «o 

- Ma^azlrie- HJ 
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por Juan María y José Miguel 
AGUIRREGABIRIA 
Departamento de Física de la Facul¬ 
tad de Ciencias y Escuela Universita¬ 
ria del Profesorado de EGB, Univer¬ 
sidad del País Vasco. 

BREVE HISTORIA DEL FORTH 

Este lenguaje fue concebido entre 
1968 y 1970 por Charles H. Moore y 
su primera aplicación profesional fue 
el control de un radiotelescopio. En 
aquellos tiempos se utilizaban orde¬ 
nadores de la tercera generación y, de 
acuerdo con la leyenda, nuestro autor 
legítimamente satisfecho de su obra 
quiso bautizarla FOURTH (cuarto, en 
inglés) por considerarla en lenguaje de 
la cuarta generación. Al no admitir el 
ordenador con el que trabajaba nom¬ 
bres de programas con más de cinco 
letras, no le quedó más remedio que 
conformarse con el nombre actual de 
FORTH. 


Inicialmente se utilizó este lengua¬ 
je casi exclusivamente en observato¬ 
rios astronómicos en los que pronto 
alcanzó gran difusión, hasta el punto 
de que en 1976 la Unión Astronómi¬ 
ca Internacional lo adoptó como el 
lenguaje de programación estándar en 
Astronomía. Pero a partir de 1973 se 
desarrollan numerosas versiones pa¬ 
ra mini y microordenadores. Como 
comentaremos más adelante, una de 
las peculiaridades más llamativas del 
FORTH es que puede ser escrito ín¬ 
tegramente por cualquier aficionado 
medianamente competente en lengua¬ 
je ensamblador. Esta y otras caracte¬ 
rísticas que veremos luego explican el 
éxito que alcanzó entre los aficiona¬ 
dos de los E.E.U.U. y el hecho de que 
hacia 1978 existieran versiones de 
FORTH para prácticamente cualquier 
ordenador. Pero las diferencias entre 
ellas eran tan grandes que más que 
FORTH constituían toda una familia 
de lenguajes que se conocen genéri¬ 


(Primera parte) 


camente como «lenguajes interpreta¬ 
dos enhebrados» (threaded interpre- 
tive languajes). Si bien la posibilidad 
de que el usuario escriba su propio 
lenguaje tipo FORTH con caracterís¬ 
ticas adaptadas a sus propios gustos 
y necesidades es en sí interesante, el 
perjuicio fatal que esta dispersión 
conlleva para con la transportabi- 
lidad de los programas hacían prefe¬ 
rible la aparición de un dialecto uni¬ 
ficado. Esto fue llevado a cabo en 
1979 por un grupo de profesionales 
y aficionados que redactaron la nor¬ 
ma que se conoce con el nombre de 
79-STANDARD y que es publicada 
por el FORTH INTEREST GROUP, 
otro grupo de usuarios americanos 
dedicados a desarrollar y dar a cono¬ 
cer este lenguaje. Este mismo grupo 
distribuye a su vez una variante cer¬ 
cana, aunque no idéntica, al 
FORTH-79 conocida como FIG- 
FORTH y que se ha convertido de he¬ 
cho en otra norma (quizá la más uti- 
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zada en microordenadores). Pero el 
* FORTH sigue despertando un enor¬ 
me interés entre los aficionados y es 
- go vivo y en continua evolución co¬ 
mo lo demuestra la reciente aparición 
la norma FORTH-83 que viene a 
istituir al 79-STANDARD. 

Hoy día existen versiones de 
FORTH para casi todos los ordena¬ 
dores personales y familiares e inclu¬ 
so es el lenguaje nativo (en lugar del 
: mniporesente BASIC) en dos de es- 

I tos. 

EL CONCEPTO FORTH 

Aunque existen versiones en for- 
I mas de genuino compilador, el 
FORTH suele ser, al igual que la ma¬ 
yor parte de los PASCALes para mi¬ 
croordenadores, de naturaleza mixta 
mezcla de intérprete y compilador. 
Una de sus características más asom¬ 
brosas reside en el hecho de que la 
mayor parte del FORTH suele estar 
ecrito en FORTH y únicamente un 
núcleo muy reducido con una exten¬ 
sión típica entre 1 y 2 kilooctetos es¬ 
tá escrito en lenguaje máquina depen¬ 
diente del procesador utilizado. 

Por otro lado, FORTH es al mis¬ 
mo tiempo un lenguaje de programa¬ 
ción, un sistema de explotación y un 
conjunto de utilitarios (escritos en 
i FORTH, por supuesto) entre los que 
cabe citar el editor y el ensamblador. 
La filosofía FORTH pretende ser tan 
global que, por ejemplo, la sintaxis del 
ensamblador se aparta de la habitual 
para adoptar la correspondiente a un 
lenguaje estructurado de alto nivel 
muy próximo al propio FORTH. 

Pero quizá lo más admirable resul¬ 
te ser la enorme sencillez e inteligen¬ 
cia de la propia concepción e imple- 
mentación de este lenguaje tan pecu¬ 
liar y diferenciado. Para cualquier afi¬ 
cionado que **aya leído un poquito 
sobre FORTH resulta un divertido 
juego de niños el «disecar» por com¬ 
pleto y llegar a comprender en su in¬ 
tegridad cada versión del mismo. De 
hecho verá que es poco más que dos 
intérpretes (uno interno que ocupa 
unos pocos octetos en código máqui- 


VÜCflBULRRIO FORTH 
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PAGE WHERE CLQAD CSAVE B. H. 

dunp k j v un* n*/ un*/ t/ 
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na y es el auténtico cerebro del len¬ 
guaje y otro externo también muy 
conciso pero escrito en FORTH), dos 
pilas y un diccionario. Nos ocupare¬ 
mos más adelante del significado y al¬ 
cance de estas palabras. 

FORTH es un lenguaje que aúna 
características que muy a menudo 
suelen resultar contradictorias e in¬ 
compatibles: concisión y rapidez. Es 
típicamente tan rápido como PAS¬ 
CAL pero exige una disponibilidad de 
memoria mucho más modesta. Es 
mucho más rápido que el BASIC y 
sus programas suelen ocupar menos 
espacio en memoria que los equiva¬ 
lentes escritos en este último. Es, ne¬ 
cesariamente, más lento que el códi¬ 
go máquina, pero mucho más com¬ 
pacto y fácil de testar, poner a punto 
y mantener. 

Es un lenguaje modular, en el que 
el equivalente de los programas se es¬ 
cribe en forma ascendente por medio 
de módulos análogos hasta cierto 
punto a los procedimientos de LOGO 
o PASCAL y que reciben aquí el 
nombre de «palabras». Cada palabra 
puede ser puesta a punto indepen¬ 
dientemente con una facilidad inexis¬ 
tente en otros lenguajes semicompila- 
dos o compilados gracias a la existen¬ 
cia de un modo de comando directo, 
análogo al existente en BASIC. 

Como todos los lenguajes moder¬ 
nos de alto nivel, permite y favorece 
la programación estructurada gracias 
a la existencia de poderosas estructu¬ 


ras de control. Pero al mismo tiempo 
mantiene una útil proximidad con len¬ 
guajes de inferior nivel, permitiendo 
que el programador tenga en sus ma¬ 
nos un control total del lenguaje y un 
fácil acceso directo a las posibilidades 
del material, así como la capacidad de 
realizar una envidiable simbiosis en¬ 
tre partes escritas en ensamblador y 
lenguaje evolucionado. 

FORTH es, en un sentido muy pro¬ 
fundo e inigualado por el momento, 
un lenguaje extensible que permite 
que el usuario pueda definir sin gran 
esfuerzo el lenguaje más indicado y 
práctico para el tipo de aplicaciones 
que pretende abordar. El ejemplo más 
pedestre de esta asombrosa capacidad 
nos viene proporcionado por la faci¬ 
lidad y naturalidad con la que el usua¬ 
rio puede alterar y ampliar el editor 
que suele acompañar al FORTH pa¬ 
ra adecuarlo a sus preferencias y ne¬ 
cesidades. 

Inevitablemente, FORTH también 
presenta características negativas. En 
primer lugar tiene reputación de difí¬ 
cil aprendizaje y quizá sea cierto que 
exige una mayor capacidad de abs¬ 
tracción, pero esto lo hace, tal vez, 
más interesante y «tampoco es para 
tanto». Por otro lado tiene justa fa¬ 
ma de ser difícil de leer, y no hay du¬ 
da de que incluso el propio autor de 
un programa suele tener dificultades 
para comprenderlo un para de meses 
después de haberlo escrito. Este in¬ 
conveniente (presente también aunque 


en proporciones variables en los de¬ 
más lenguajes) puede ser atenuado en 
gran medida por medio del uso ex¬ 
haustivo y oportuno de los comenta¬ 
rios, los cuales no ocupan memoria 
(aunque sí espacio en el disco) y pue¬ 
den insertarse en FORTH en cual¬ 
quier parte con una facilidad inexis¬ 
tente en BASIC. En cualquier caso, 
estas objecciones al FORTH son pro¬ 
bablemente más pertinentes en el ca¬ 
so de un usuario anglosajón o con 
ciertos conocimientos de inglés que en 
el de aquél para el cual el PRINT del 
BASIC es tan poco expresivo como el 
del FORTH, con la ventaja para este 
último de que, aún con mayor facili¬ 
dad y extensión que en LOGO, nada 
nos impide rebautizar a esta palabra 
como IMPRIME, por ejemplo. 


EL FORTH, ¿PARA QUE Y PARA 
QUIEN? 

El uso profesional del FORTH se 
centra principalmente en aplicaciones 
de control en tiempo real debido a la 
facilidad de puesta a punto de los pro¬ 
gramas y al código compacto y rápi¬ 
do generado. Además del ejemplo ya 
mencionado de radio telescopios, se 
usa para controlar satélites y robots 
y para el seguimiento de enfermos en 
vigilancia intensiva. Existen un tra¬ 
ductor de bolsillo y una calculadora 
programable desarrollados en 
FORTH. Igualmente podemos citar 
su uso por uno de los principales pro¬ 
ductores mundiales de vídeo-juegos y 
en la realización de los efectos espe¬ 
ciales en películas de tipo «La guerra 
de las galaxias». 

Pero ciñéndonos al uso personal del 
FORTH, podemos resaltar dos apli¬ 
caciones de este lenguaje. La primera 
consiste en el desarrollo de juegos de 
acción para microordenador. La se¬ 
gunda, que consideramos más intere¬ 
sante y creativa, está destinada a quie¬ 
nes ya son o aspiran a llegar a ser 
unos «manitas» de su máquina pre¬ 
ferida. Nos estamos refiriendo a aque¬ 
llos aficionados que pretenden domi¬ 
nar todos los trucos y posibilidades 
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que ofrece su configuración. Tanto la 
extensibilidad del FORTH como la fa¬ 
cilidad con la que se pueden entrecu- 
zar partes escritas en este lenguaje y 
en ensamblador y pasar variables en¬ 
tre ellas, hacen que FORTH sea el 
complemento ideal de la programa¬ 
ción en código máquina. Creemos 
que es un útil altamente recomenda¬ 
ble para el avezado programador en 
ensamblador que está un tanto abu¬ 
rrido de la dificultad de desarrollar 
ciertas rutinas que aun apareciendo a 
menudo no exigen una rapidez de eje¬ 
cución extrema. También puede ser¬ 
vir como un primer y más sencillo pa¬ 
so en un proceso de acercamiento al 
ensamblador por parte del usuario de 
BASIC que desea introducirse en los 
arcanos del código máquina, pero al 
encontrarlo demasiado difícil, prefiere 
seguir para ello un proceso gradual. 


C64-FORTH 

Es éste el original nombre de la ver¬ 
sión del FIG-FORTH que, proceden¬ 
te de Suecia como adaptación de un 
FORTH para el PET, es distribuido 
por Datatronic AB para el C64. 

Se presenta en forma de cartucho 
de ROM y un delgado fascículo escri¬ 
to en inglés y bautizado con el pom¬ 
poso y completamente inadecuado 
nombre de «guía del usuario y ma¬ 
nual de referencia». 

En el mencionado cartucho se en¬ 
cuentra una versión bastante completa 
del FIG-FORTH (una de las normas 
antes mencionadas), salvo por ciertas 
desviaciones señaladas en el manual, 
junto con un editor convencional aun¬ 
que no excesivamente cómodo y un 
ensamblador. La implementación pa¬ 
rece, a primera vista, correcta y tras 


habefrealizado los tests de rapidez es¬ 
tándar conocidos como «Bench- 
marks», hemos constatado que ocu¬ 
pa un discreto puesto ligeramente de¬ 
lante de la versión de Cargile y Ríley 
para el PET 4032. 

Aunque presenta ciertas facilidades 
(¡mínimas!) para su uso con cassette, 
esta versión de FORTH, al igual que 
todas las que conocemos con excep¬ 
ción de la que incorpora de oficio el 
Júpiter Ace, no resultará de real utili¬ 
dad práctica más que con el concur¬ 
so de una unidad de discos. Es por es¬ 
ta razón que hubiéramos preferido 
una versión en disco al objeto de te¬ 
ner mayor compatibilidad con otras 
versiones y, sobre todo, mejores posi¬ 
bilidades de extender y traficar el len¬ 
guaje de base mediante adecuados 
«patches» en el disco. En especial, hu¬ 
biera permitido evitar de salida la ca- 
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rencia de otras extensiones que, por 
desgracia, el usuario echará en falta, 
como serían «pantallas» de trata¬ 
miento de cadenas de texto, cálculo en 
coma flotante y, muy especialmente, 
gráficos en alta resolución, fantasmas 
(sprites) y sonido. La carencia de es¬ 
tas últimas posibilidades limitará la 
utilización de esta versión de FORTH 
para el desarrollo de juegos a aque¬ 
llos aficionados que siendo familiares 
con la máquina y su lenguaje ensam¬ 
blador sean capaces de suplir estas la¬ 
mentables deficiencias. 

Por desgracia ni estos usuarios ex¬ 
pertos en esta delicada tarea, ni, lo 
que infinitamente más grave, el aficio¬ 
nado novato que no conoce nada 
FORTH, hallarán la más mínima ayu¬ 
da en la escuálida documentación 
proporcionada. 

En las tristes páginas de este desa¬ 
fortunado folleto apenas puede ha¬ 
llarse más que la promesa de que to¬ 
da la información necesaria se en¬ 
cuentra en otro manual (!!) que la 
misma casa ha dedicado a la versión 
desarrollada para el PET y que, por 
vergonzoso y lamentable que parez¬ 
ca, no acompaña al lenguaje. De esta 
suerte, quien no haya utilizado nun¬ 
ca un FORTH, o conozca a alguien 
que lo haya hecho, se verá con toda 
probabilidad incapacitado para utili¬ 
zar ni siquiera los rudimentos del len¬ 
guaje, excepto si es un auténtico su- 
perdotado en esto de la información 
y tiene una paciencia como la del san¬ 
to Job. 

No se da ninguna indicación orde¬ 
nada sobre el uso del editor. Toda re¬ 
ferencia al vocabulario ENSAMBLA¬ 
DOR está ausente. Lo único que pre¬ 
tende ser el citado manual es un glo¬ 
sario de las palabras presentes en los 
vocabularios EDITOR y, FORTH 
cuando se inicializa el sistema. Por 
desgracia, incluso este glosario resul¬ 
tará poco útil, ya que es incompleto 
(faltan alrededor de la decena de pa¬ 
labras presentes realmente en el dic¬ 
cionario, siendo algunas de ellas tan 
importantes como FLUSH, PICK, 
KEY, CURRENT, etc.), proporcio¬ 
na una información insuficiente (no 
señalando cuándo una palabra es in- 
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mediata o de uso reservado a la com¬ 
pilación) e incluso a veces errónea (co¬ 
mo en el caso de D.R que aparece co¬ 
mo D.R.). Tampoco la colección de 
definiciones dadas en la Parte 3 para 
conseguir un FORTH compatible con 
la norma de 1979 es ni completa (fal¬ 
ta, por ejemplo, la definición de :NOT 
0 = ;) ni correcta (la palabra de efec¬ 
to nulo a definir no es FORTH-79 si¬ 
no 79-STANDARD y la definición 
que se proporciona para D es, cuan¬ 
do menos, inusitada y artificialmen¬ 
te compleja). 

En resumen, una buena implemen- 
tación del FIG-FORTH con extensio¬ 
nes para el tratamiento de ficheros y 
una pésima documentación. Permíta¬ 
senos insistir en la lamentable ausen¬ 
cia de facilidades para el uso de las 
posibilidades de alta resolución y mú¬ 
sica que el material ofrece. 

PUESTA EN MARCHA DEL 
FORTH-C64 

Con la máquina apagada se inser¬ 
ta el cartucho de ROM y se pulsa el 
botón ON/OFF. Tras una espera im¬ 
perceptible (¡ventajas de la opción 
ROM!), vemos en la pantalla un men¬ 
saje de acogida y un cursor intermi¬ 
tente. 

A partir de este momento tenemos 
a nuestra disposición unas cuatrocien¬ 
tas palabras que se distribuyen, si no 
nos hemos equivocado al contar, de 
la siguiente manera por vocabulario: 
FORTH, 274; EDITOR, 34 y AS- 
SEMBLER, 99. Como veremos lue¬ 
go, este conjunto inicial es fácilmen¬ 
te ampliable sin más limitaciones que 
las impuestas por la memoria dispo¬ 
nible que es de unos 30 kilooctetos 
para el usuario no dispuesto a rom¬ 
perse la cabeza para recuperar los 32 
restantes. Debido a lo compacto que 
suelen ser los prograas escritos en 
FORTH, esta memoria disponible re¬ 
sulta más que confortable para la ma¬ 
yor parte de las aplicaciones imagina¬ 
bles. En la Figura 1 pueden verse las 
palabras que se encuentran inicial¬ 
mente en los vocabularios EDITOR 
(hasta -MOVE incluida) y FORTH. 
Las que pertenecen al vocabulario 


ASSEMBLER pueden verse en la Fi¬ 
gura 2. 

Como primer experimento de la ve¬ 
locidad de ejecución del FORTH, es¬ 
cribamos 32767 32767 TYPE y pul¬ 
semos la tecla RETURN. Durante 
unos segundos desfilarán en pantalla 
una vistosa y cambiante sucesión de 
letras y símbolos, como cambios de 
color incluidos. Prestando atención se 
pueden reconocer partes de los nom¬ 
bres de las palabras que aparecen en 
el glosario del manual. Esto no tiene 
nada de extraño, ya que lo que hemos 
hecho ha sido pedir a la máquina que 
nos imprima como códigos ASCII el 
contenido de los 32767 octetos de me¬ 
moria que existen, en RAM y ROM, 
a partir de la dirección 32767. El mis¬ 
mo resultado puede obtenerse en BA¬ 
SIC con un programa bastante más 
largo y lento. 

Quizás el exponente más expecta- 
cular de la rapidez del FORTH sea el 
que nos proporciona la siguiente pa¬ 
labra que podemos definir escribien¬ 
do directamente lo que sigue, con tal 
de respetar escrupulosamente los es¬ 
pacios, 

: PRUEBA 10000 DO 10 0 DO 
LOOP LOOP; 

que ejecuta cien mil (sí, un uno segui¬ 
do de cinco ceros) en 17 segundos sin 
más que escribir PRUEBA y pulsar 
RETURN. El program equivalente en 
BASIC es 

1 FOR 1 = 1 TO 10000: FOR J = 1 
TO 10: NEXT J,I 
que precisa, aun si eliminamos todos 
los espacios, un lapso de tiempo más 
de diez veces superior para su ejecu¬ 
ción. Para contrapesar esta primera 
impresión entusiasta, digamos que el 
BASIC imprime en pantalla los nú¬ 
meros casi dos veces más rápidamen¬ 
te que el FORTH. Pensamos que es¬ 
to es debido esencialmente a la ma¬ 
yor versatilidad de la correspondien¬ 
te rutina FORTH que permite impri¬ 
mir números en una base arbitraria 
(decimal, hexadecimal, binaria, ...). 

En el próximo número abordare¬ 
mos con más detalle alguna de las pe¬ 
culiares características de este singu¬ 
lar e interesante lenguaje. 
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Ha llegado un N° 1 


SAUCER ATTACK 
es realmente 
un JUEGO DISTINTO 



3CQRE Jftl 

FOTOS V 
TOMADAS DIRECTAMENTE 
DE UN MONITOR 1702 
COMMODORE 


JflflES 0 


INSUPERABLE CALIDAD AUDIOVISUAL 

Fiupi-moPET /.«. m ás cerca de su casa 

Encontrará el juego n.° 1 de U.S.A. ¡SAUCER ATTACK! en la relación de tiendas de 
informática o kioscos que detallamos: 


En BARCELONA 

TELEUNION COMPUTER. C/ Buenos Aires, 57 

NOVO-DIGIT, S. A. Aragón, 472 

ELECTRONICA JOVALL. Gran de San Andrés, 129 

ELECTRO AFICION. Villaroel, 104 

ELECTRONICA VIVAS. Mosén Jacinto Verda- 

guer, 78. Santa Coloma de Gramanet 

RADIO DEFOREST. Viladomat, 105 

Kios Aeropuerto de Barcelona 

Areas Sants Estación Sants Ferrocarriles 

La Librería, S. A. Avda. Sarria, 2 

Lebreria Artos. Mayor de Sarria, 2 

Leonor Hernández Reina Elisenda, 2 

Librería Bosch Ronda. Universidad, 11 

Ediciones Z. Paseo de Gracia, 19 

Mallorca. Rambla Cataluña, 86 

Libros y revistas BRUGUERA. Rambla Cataluña, 72 
XAPS. Balmes, 244 

ISLA DEL TESORO. Manuel Girona, 42 
MANDRI. Mandri/Cerdanyola 
Calvet. Pza. Núñez de Arce 
Kiosco Canuda Ramblas 

Librería Catalonia. Rda. S. Pedro Fte. Corte Inglés 

Kiosco Vanguardia. Paseo de Gracia 

Kiosco Drugstore. Paseo de Gracia 

Librería Francesa. Paseo de Gracia 

Kiosco LA OCA. Plaza Calvo Sotelo 

Kiosco ZANON. Plaza Calvo Sotelo 

Kiosco Princesa SOFIA. Frente Hotel Princesa Sofía 

Kiosco Intern. Pedralbes P.° Manuel Girona 

Kiosco COCA CASPE 

Kiosco MARTOS. Ramblas 


Kiosco Colón. Ramblas 

Kiosco Carrillo. Baena Diagonal, fte. Corte Inglés 

Kiosco TELE EXPRESS. P.° de Gracia 

Kiósco SOLI. Ramblas Plaza Cataluña, 13 

Kiosco YA. Plaza Cataluña, 13 

Drugstore DAVID. Tuset 

Librería Arcadia. Tuset-Pje. Arcadia 

Kiosco Corte Inglés. Corte Inglés Diagonal 

VIC (BARCELONA) SERVI COMPUT. C/ Moragas, 46 bjs. 

VILAFRANCA DEL PENEDES. RADIO COMPUTER CENTER. 

Crtra. de Igualada, 21 

TARRAGONA. Electrónica RIFE. C/ Ramón y Cajal, 64 
GERONA. REGISCOMPTE, S. A. C/ Emilio Grahit, 17 bis 
LERIDA. TELESA. Doctor Fleming, 53 
NAVARRA-ANDORRA. 2 Avda. Roncesvalles, 8 PAMPLONA 
ZARAGOZA. ADA COMPUTER. P.° Independencia, 24-26 
BILBAO. AYMOSA. Blas de Otero, 45 
SESTAO, BILBAO. C/ Vía Galindo, 2 
SANTIAGO DE COMPOSTELA. TADEL. C/ Mezonzo, 15 
SANTIAGO DE COMPOSTELA. HALT SOFTWARE. 

C/ Alférez Provisional, 2 ent. E 

TORRELAVEGA, CANTABRIA. INFORMATICA SIGLO XXI. 

C/ San José M. Pereda, 1 

BURGOS. CENTRO WELCOME. Alejandro 

Rodríguez Valcárcel, 9 

MADRID. ABC INFORMATICA. Zurbano, 91 6- B 
MADRID. KEY INFORMATICA. Embajadores, 90, tienda 

LAS PALMAS DE GRAN CANARIA. Pedro González Melián. 
Rosario, 5, Vegueta 

PALMA DE MALLORCA. DIMEL, S. A. Juan de Cremon, 4 


— TARJETA 64 K RAM. VIC 20 

— TARJETA 40/80 COLUMNAS VIC 20 ■ ■ 

— TARJETA 80 COLUMNAS COMMODORE-64 

— SLOTS DE EXPANSION (2 Y 5 TARJETAS) ■ liaras--» ■ 

— EXTENSO SOFTWARE 80 COLUMNAS 

— LA TARJETA 64K RAM ES LA PERFECTA COMBINACION PARA LA 80 COL. 
¡CONVIERTA SU VIC-20 EN UN ORDENADOR SERIO! 


PEDIDOS A: 


FEPPE-mOPET /.A 


C/ TUSET, 8 08006 BARCELONA 
TEL. (93) 218 02 93 


























TODO SOBRE COMMODORE - 64 Y VIC - 20 

LOS ULTIMOS JUEGOS EN EL MERCADO 
TODO EN PERIFERICOS - LIBROS 
PROGRAMAS DE GESTION - ETC. 

SOLICITE INFORMACION POR CORREO 



(HOLA, SOY TRONIK 
TU AMIGO INFORMATICO! 



- Todo sobre el 
COMMODORE 64 
y VIC 20 

• Periféricos. 

• Múltiples 
programas. 

• Libros y revistas 

• Recompramos 

tu ordenador como 
entrada de otro 
nuevo. 

• Cursillos de BASIC 
a todos los nrveles. 


























ACUCA 


ULTIMO AVISO 


¿Eres aficionado a la programación 7 
¿Dominas el código máquina? 

¿Tienes programas originales? 

¿Puedes escribir un buen juego? 
¿Quieres ganar dólares, libras, francos o 
pesetas desde tu casa, en tus horas libres? 

¡NO TE LO PIERDAS! 

Contacta mmeditamente con: 

CIBERCOMP, S. A. 

Tels. (91)20021 00 
(91) 759 22 44 


Especialistas en software para Home Computers 
asociados con primeras firmas internacionales. 


Turbo Extended Basic 

Ampliación de Basic. 

45 comandos nuevos para 
facilitar la programación 
del Basic. 

Para VIC 20 
y COMMODORE 64 
Instrucciones en español. 

PRECIO: 6.500 ptas. Cas. 

PRECIO: 7.000 ptas. Dis. 

PRECIO: 10.000 ptas. 

Cartucho. 

Deje que hable su ordenador (en castellano) y 
muéstrelo a sus amigos, “los impresionará". 

‘ Funciona con: 

C/64, VIC/20, ORIC 1, 

SHARP MZ-700, ATMOS, 
MEMTECH 500/512, 

COLOUR GENTE. 


Speaktmy 




PRECIO: 7.590 ptas. 

Qz. commodore 

Si quiere trabajar en serio con su ordenador, 
nedesita nuestro cartucho FAST-TURBO HELP. 
Contiene gran cantidad de programas, les cita¬ 
mos algunos de ellos: 

* AYUDA DE PROGRAMACION: 

Auto, Renum, Del, Trace, Find, Help, etc. 
AYUDA PARA FLOPPY O COMANDOS 
DEL DOS: 

12 ayudas del Dos, puede unir programas 
sin estropear el anterior. 

* INTERFACE CENTRONICS: 

Puede conectar su impresora Centronics 
directamente al User-Port. 

* MONITOR: 

Con 16 comandos: Asemblador y Disa- 
semblador. 

* ETC. 

INSTRUCCIONES EN CASTELLANO. 

Precio: 12.000 ptas. 

ASTOC-DATA 

Hardware y Software-Systems 
Sarela de Abajo 
Santiago de Compostela 
Tel. 59 95 33 


LIBROS PARA 
TU ORDENADOR 




COMMODORE 64, QUÉ ES, PARA QUÉ 
SIRVE Y CÓMO SE USA por D. Ellershaw y 
P. Schofield, P.V.P. 950 Ptas. 

En esta obra se enseña de modo simple y 
sencillo cómo dar los primeros pasos con 
este ordenador. Se explica cómo conectarlo, 
cómo emplearlo y cómo aprovecharlo al 
máximo adjuntando un vocabulario del Basic 
que le hará más comprensible el manejo del 
ordenador. 


COMMODORE 64, APLICACIONES 
PRACTICAS PARA LA CASA Y LOS 
PEQUEÑOS NEGOCIOS por Chris 
Callender, P.V.P. 830 Ptas. 

El Commodore 64 es un ordenador que no 
sólo sirve para juegos. En esta obra se expli¬ 
can quince programas prácticos para el ho¬ 
gar y el negocio. Directorios, contabilidad 
gráficas, stocks, calendario, etc. 


18 JUEGOS DINÁMICOS PARA TU 
COMMODORE 64 por P. Monsaut 
P.V.P. 650 Ptas. 

En este libro se presenta una colección de 
18 programas de juegos vanados que combi¬ 
nan todas las posibilidades de su ordenador, 
sonido, color, gráficos, movimiento, etc. Ade¬ 
más no sólo se limita a presentar juegos sino 
que aprovecha para mostrar algunos trucos 
y técnicas de programación. 

Software: cinta cassette incluyendo los 15 programas que se 
tratan en el libro «COMMODORE 64, aplicaciones prácticas para 
la casa y los pequeños negocios» P.V.P. 1.500 Ptas. 

Otros títulos de Editorial Noray: 

ZX SPECTRUM • QUÉ ES, PARA QUÉ SIRVE V CÓMO SE USA por Tim Langdell, 
P.V.P. 1.110 Ptas. 

PROFUNDIZANDO EN EL ZX SPECTRUM por Dailwyn Jones, P.V.P. 1.300 Ptas. 

ZX SPECTRUM, APLICACIONES PRÁCTICAS PARA LA CASA Y LOS PEQUEÑOS 
NEGOCIOS por Chris Callender, P.V.P. 870 Ptas. 

18 JUEGOS DINÁMICOS PARA TU ZX SPECTRUM por P. Monsaut, P.V.P. 650 Ptas. 

En preparación: 

DRAGON 32, QUE ES, PARA QUÉ SIRVE Y CÓMO SE USA, P.V.P. 1.300 Ptas 
18 JUEGOS DINAMICOS PARA TU DRAGON 32, P.V.P. 650 Ptas. 

Pídalos en su librería, tienda de informática o solicítelos directamente a la 
editorial con el cupón adju nto o al teléfono (93) 211 11 46. 

NOMBRE Y APELLIDOS__ 

DIRECCIÓN__ 

POBLACIÓN_ 



TEL. 


CODIGO POSTAL. 


INCLUYO TALÓN □ 
TITULO 


CONTRA REEMBOLSO □ 


P.V.P. 
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EDITORIAL NORAY 


SAN GERVASIO DE CASSOLAS, 79 
BARCELONA 08022. TEL 211 11 46 




















La versión española de Popular Computing 


ORDENADOR 

- POPULAR 



LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 


WowoeOC- 


>Q juaga 




mam 


'SÜVSvS. 

Gestión 
Bases de tito 


nRDEL r 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales, 

ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 


Cómprela en su kiosco habitual o solicítela a: 


ORDENADOR 

- POPULAR- 


EDISA, 

López de Hoyos, 141, 

28002 Madrid 






























Después de pasar este programa 
agárrate bien a la silla y prepárate pa¬ 
ra dar saltos sobre la superficie de 
la luna mientras conduces este VE¬ 
HICULO LUNAR. El objetivo del 
juego es llegar, con el vehículo lunar, 
nasta la plataforma de la base que se 
encuentra hacia la derecha. Hay dos 
obstáculos que superar; el primero lo 
constituyen una serie de minas espa¬ 
ciales distribuidas aleatoriamente por 
el espacio justo por encima de la su¬ 
perficie lunar. Chocar contra alguna 
de las minas supone la destrucción del 
vehículo. Otro problema es que, co¬ 
mo en casi todo este tipo de juegos, 
el combustible es escaso y hay que te¬ 
ner cuidado de no agotarlo antes de 
poder cumplir con la misión. El indi¬ 
cador de combustible aparece en la 
parte superior de la pantalla. 

Para manejar el vehículo lunar se 
utilizan las teclas «Z» y «C» para los 
desplazamientos horizontales a dere¬ 
cha e izquierda. La tecla «M» es el re- 
:rocohete y permite elevarse del sue- 
o. Hay que practicar un poco antes 
ce hacerse con el retrocohete, ya que 
una vez que el impulso es suficiente, 
el vehículo seguirá subiendo aunque 
dejemos de pulsar la tecla correspon¬ 
diente. Una vez en el aire y con el im¬ 
pulso suficiente habrá que manejar el 
• ehículo entre las minas hasta llegar 
a la plataforma. 

El programa utiliza las siguienes va¬ 
riables: 


30 fajasK? 



D 

— Distancia vertical. 

VV 

— Velocidad vertical. 

K 

— Tecla pulsada. 

FU 

— Fuel o combustible. 

X, Y 

— Posiciones horizontal y 
vertical anteriores. 

XI, Y1 

— Posiciones horizontal y 
vertical actuales. 

SC 

— Puntero de referencia de 
la pantalla. 


i 0 
15 
20 
25 
30 
35 
40 
45 
56 
55 
60 
65 
70 
75 
80 
85 
90 


eem *mm*M*m**m*m**M 

REM * EL VEHICULO LUNAR * 

REM * * 

REM * CÜMMODÜRE MflGflZINE * 

REM **M**M*m*M**W*m* 

P0KE55, 255:PGKE56,47:V=53248=POKEV+32,0 : POKEV+33.0 
FORI = 12544TG12o51 : POKE 1,0: NEXT: P0KE5423S. 1 F¡ 
FGRI=0TO111:REñDfi:POKE12288+1.fl:NEXT 
PGKEV+24,28 

X=4 : V= 17: SC= 1024 : CG=55296: KB= 137: FIJ=250: W=0 

GGSUB260 

F0RI*1T025 

P=INT(RND íi>#630):IFPEEK< SC+P)032THEN75 
FOKECG+P,10:POKESC+P,12:NEXTI 
PRINT"a fCCCCCCCCCCCCCCCCCCCCCCCC :l i 
F’R I NT" aWlflílellMStííiííIíSfiíISJiBCiiiEFG "; 
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Viene de la página anterior 
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35 PRI NT :| !$[?1 ■ ■ l&itfiflB9~i IJ "i 
100 K-F’EEK < KB) : IFFLK2THEN120 
105 IFK036THEN120 

110 W=W-1 : FU-FU-2 : IFW05THENVV*-5 

115 F0KE54273, 72 : F0KE54272, 163: PÜKE54277,15 : P0KE54276.- 0 : P0KE54276, 123 
120 VV=W+. 5 : I FW> 10THENW* 10 

125 B-v'vV10 :V1-1NT <V+D> : F’=PEEK <SOV1 #40+X ):I FP=2ñNDW>0THENFU=FU-.05 :V V=0 : B=0 


139 IFP=12THEN205 

i 35 IFP-0THENX1 =X- i : V1 =V+1 •’ F¡J=FU- - 1 : GOTO 165 

140 IFP=1THENX1=X+1 : V1=Y+1:FU=FIJ-.1•GOTO165 
145 Yí =Y+D : IFY1<1THEHY1 = 1 : VV=0 

150 IFFLK1THEH255 

155 X1 =X+ (K= 12 > - (K-20 > : FU=FO < K-12 > + < K=20 ) ; IFX í <0THENX 1 =0 

160 IFXi>33THENX1=0 

165 I FX=X1ANDINT <V1> = INT <Y> THENi80 

170 IFPEEK ( SO I NT (V1 > *40+X 1) = 12THEN265 

175 I FPEEK i SO I NT < V1 > *40+X 1 > O32THEN 185 

180 PQKESOI NT < Y ) *40+X, 32 : X=X 1 : Y=V 1 

185 V1 = I NT < V > •• POKECO+Y í *40+X, 7 •' POKESOY í *4@+X •• i i 

130 IF X y 33RNI¡X87ñNDINT í. Y ) = 13ThcN240 
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SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 



Telf. ( 91 ) 733 7969 




7 días por semana, 24 lloras a su servicio 


commodore 


nrrtc 

Mclc/, 


lazÁ/ue- 


SUSCRIBASE A 
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i 8 5 P 0 k t S C+h U / i 0 .• 3 2 
200 GOTOí00 

205 POKESC+1 NT < V) *40+X, 32 • V = I NT < y 1 >: P0KEC0+V*4@+X.. 2 • PGKESC+¥#40+X . 13 
’f *? P0KE542 i*■' 34 ; P0KEo4272> 75 : P0KE54277.• 127 • P0KES42760 ; P0KE54276.• 123 
1 ^ F ORTO2000 ; NtXT •' PÜKEW24 ■ 20 ; PRINT TKiTTE ESTRELLR3TE CON Lfi MINfiMíWftttT 
220 PR IN i ' ¡Sil i RO JUEGO? S/N M : P0KE54272 .» 0 : P0KE54273 • 0 
225 GETR* ; IFR$="S"THEN55 
230 I FRÍO" N " G0T0225 
235 END 


240 FORi~ÍT02000 ; NEXT 
245 POKEV+24,20 ■ PR I NT i! ÜHfáENHORftBüENñ 
250 GOTO220 

2bb POKEV+24•20 ; FORI — í TO í 0O0 
U220 

F F i NT L CCil»ÍiÍi«»¡»Í¡i»íi¡ii¡íi«íl^iíí»í^ 

F’R I NT " ÜHViMMÜiillCCCCCCCñÜÜi iiiiitf iÍÍWEBBH»ÍISCGCCCCCCCIi>*ÍÍ1 


CUMPLISTE TU MISIONOTüüüíT' 

NEXT•PRINT : UTE QUEBRSTE SIN COMBUSTIBLE! 


GOT 


265 

270 

275 

286 


pr i nt 1 ü»»i»»ii»»KiRüinnicccñiiiv:ccccc( 
PR i NT !! CCCCBBCCCCCCCCCCCiiiiMiMKlOCCC 
235 PR I NT " BBCCCCCCiiSSSSIl-CCCCCCCCCCCCCCCCC 
230 
235 


:l:¡‘ 


: R Sd> iS P i» ü ü i« ¡i Ib ¡m ¡i|^ R03 C: il.: R ¡ü üi Si Üi" 


;C»ÍÜÜÜi£C( 

;cü*»i¡acc 


CCCCCCCCCCCCCCBBñHiWiO' 
CCCCCBBBBBRCCCCCCCCCCC"; 


f r i nt cccccccccoeccccccccccccccccccccccccccccccccccccncccnrr.nr.ñcñrcñr "; 

PR I NT " CCCCC; " .. 

F’R I NT ” CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ; 

FRIN1 'UCCCCULCLCLCCCUCCCCCÜCL’CCCCCCCCCCCCCCCC ; : F ÜKE2023.• 3 
310 P U K E 5 623 5 .• 1 : R E T ü R N 

315 BRTR í ■ 3.. 7^ i 515.. 3 í .• 35.. 255 .• 128í 32 ■ 224 ■ 240,248.. 248 .• 252, 255 

BR TFii 43 .• 2o5 .■ 255 .* 255 .• 255 > 255 .• 255.• 255 .• 255 .• 255255255 .< 255 * ?55 . ?55.2-55 
BFiTRO0.. ¿4 • í 2*6 126.- 6024 .> 36 .* 0 .< 0 .• 1 .• 2 .• 2 .< 2 .• 5 .• 5 .• 66 .• i 23 .• 0 .• 0 .• 0.. 0.. 0.. 0.. 0 
Bft i R0 .• 0.« 12o6464 .■ 64 .> i 60 .• 16ü .• 0 .• U .• U .* 0 ■ 63 .• 6o .• i 3 !i • 40 .• 0 .• 0.0 } 255 .> 0 < 255 > 24 
BR TRO .• 0 > 00252 .• 34 ■ 133 .• 32.«0 .• 20 .• 68 .< 254 .• 2556623166 
BR 1 R0 .< 0 .* 0 .i 1640 .< i 6 .< U .> 0 .• 6.< o6 .• 252 .• 63 • 6052 • 34 64 
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C-64 

Existen varios procedimientos pa¬ 
ra cuando un grupo de personas de¬ 
cide echar a suertes o jugarse algo, 
por ejemplo a la hora de pagar una 
«ronda» de cervecitas o cosa así. En¬ 
tre ellos están los conocidos de «cara 
o cruz», «los chinos», «pares o no¬ 
nes» y cuando se tiene una baraja de 
naipes a mano se puede jugar a la car¬ 
ta más alta o a mayor, o menor. El 
programa que presentamos a conti¬ 
nuación para el C-64 simula el últi¬ 
mo procedimiento, es decir el juego 
de mayor o menor. Este juego consiste 
en ir sacando cartas una a una de la 
baraja, tratando de adivinar si la car¬ 
ta siguiente será mayor o menor que 
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la anterior. Cada vez que se aciertan 
cuatro cartas seguidas el programa 
apunta cinco pesetas a la cuenta del 
jugador; los que quieran jugar fuerte 
pueden cambiar este valor modifican¬ 
do la línea 235 y poniendo cualquier 
cantidad astronómica que les apetez¬ 
ca. De vez en cuando y de forma alea¬ 
toria el programa desafía al jugador 
a jugar una ronda a «doble o nada»; 
es decir, que si el jugador gana mul¬ 
tiplica todo su dinero por dos, mien¬ 
tras que si pierde lo pierde todo de 
golpe. Este desafío puede aceptarse o 
no, según ande el jugador de atrevido. 

El programa es muy sencillo y su 


manejo más todavía, ya que el juga¬ 
dor sólo tiene que utilizar las teclas 
de «mayor» y «menor» para hacer su 
apuesta y las teclas «S» y «N» para 


responder a las preguntas que se le ha¬ 
gan durante el juego. 

Las variables utilizadas por el pro¬ 
grama son las siguientes: 


S$ —Selecciona el «palo» de las 
cartas. 

C —Baraja de cartas. 

M —Dinero del jugador. 

D —Doble o nada. 

CU —Contador de rondas. 

D —Puntero indicador dentro de 
la baraja. 


40 

45 

50 


; I¡IMS*C52) : DIMC(52) : M*20 • H=0 : CU=0 


SPRINT" a® INERO 


iüftlüi ; ti; "PTñS :! : G0SUB335 


I 10 REM «**«^^«*^*4i**^*i4(^:*if:** 

| 15 REM * MAYOR 0 MENOR * 

20 REM * $ 

25 REM * COMMÜDÜRE MAGA2INE * 

30 REM *M**m*M**M*M*m** 

I 35 • 

PRIN i '\T : PQKE5323 i .• 7 ; PGKE532S0. __... 

P0KE54296.- 15 : P0KE54276.- 0 ; P0KE54273.. 240 
FüRJ=0TO3 : FOR I — 1TÜ13 ; C (I +.1# 1;• - j : I +.T#;[ i = 1 " 

IFJ= iTHENS$( I+J* 13) = '' 

IFJ=2THENS$CI+J*13)="■*” 

IFJ=3THENS$(I+J# 13)- ráfc 
NEXTI,J 

PGKt.542 76 .• 0 ; PÜKE54276 .• 17 
PQKE54273 > 34 ; P0KE54272 .<75 
P0KE54273,0 : P0KE54272,0•Cü=Cü+i 
FORI = 1T04 

P~ I NT ( RNjü ( i) #52+ i ) : IFC < P ) =0THEN33 
N1 =N : N$=STR$ < C (P)) •• N=C (P) 

I PC ( P) = 1 THENN$~" R 
IF C ( P ) = 11 THENN$= "• J 
IFC (P ) = i 27HENN$= '* Q !! 
i r C (P ) = 131HENN$='' K " 

11- C < P ) = 10THENN$= M 10 " 

C (P ) =0: PRI NT" m M ttttttftíÜIRtOR 0 MENOR! tftttttttT M 

I I ~ í THEN i 55 

PR I NT" JSÍ'IH t ÜR 0 MENOR? 

GETA$: Ih ñ$0< " ANDASO" >" THEN 150 
PRINT ,! SW' 1 , • IFI=2THEN PRINT S! ^ü!»ii»iüi¡ ;! • 

IFI-3THENPRÍN i ; 

1^- 1^4THENPRINT ,, cíÍ*Íi»ÍliiÍ»*Í»ii*i¡üü#i¿#iiüi#i l ¿üiüiü¿ j i¡ : 

pr i nt " mmmmmmmfáWMmnm w ; 

PR I NT" flülllli W'> 

PR I NT" pVIIHHÜT iÜüIiHiiSiüüü ^liiiiiiüü ^IIlilHa^ 

PRiNl : m ■ IFI =2TH£NPRINT'' £9PÍ!ÍÍPÍÍÍir : 

I r 1 «3THENPRINT M 3»PPPPPPPPPPP&»p**ií¡£»r ; 

1 r I «4THENPR1 NT" i»*?»*****»* ********1 •• 

PR i NT :i txmmmm" ;n* ;: pr i nt !| m ; s* < p)• pr i nt mim '.; n* 

wc: -■' 33: P0KE;:,4273 t * ■ P0KE54272,206: FORZ=1TÜ20G •' NEXT : PQKE54273. 

r OKd.542 2.. tí 

irH$-ANDN1>NTHEN235 
I Fñ$=C ,! ANDN 1CNTHEH235 


60 
65 
70 
75 
30 
85 
90 
95 
1 00 
105 
1 10 
115 
120 
125 
130 
135 
140 
1 SO 
155 

1 60 
165 
170 
175 
ISO 
135 
190 
135 
200 
20 ! 

2 i 0 
215 
220 
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o 1 
o I 
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O I 

° I 
0 

° 
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223 
230 
3 O 
240 
245 
230 
253 
260 
265 
270 
273 
280 
283 
290 
293 
300 
305 
310 
3 \ 3 
320 
323 
330 
3 3 O 
340 
345 
350 


FOR Ja 1 TO 300 j. NtXTJ, Ij FÜR ¡ = i TG 244 STEP 2 : P0Kc54£73I : NEXT ; P 0 KE 54273,8 
I r D — 11 H £ N F RIN ] '' viilXftíSíílííttPiPÍPlíiBílPiíi-LPiPitíiPír3._: ij N 3 q G iJIS i E D O Bi_.HR T i i BINE R fl 11 ; M—M 2 ; n n 7 n4 
RRI NT , HñS GflNflDfi ñRTRR: m=M+ c T 

PRINT ,! SWBINERG ifllKll M; ''PTRS 

D~0; PRINT¡ERES JÜGFIR n¡"RR ¡ - : EZ'“’ VN ,! 

GETR$ : I FR$-= M N r THENENB 
I FRÍO " 3THEN258 
IFRND '• i > <. 37HEN285 

PRIN7' .SUQüIERES JüGfiR ‘"DOBLE O NRDfi S/N ! ' 
üETR$ ; I FR$-" N ' THEN2S5 
I FRÍO M STHEN270 
D=1 

IFCü>9iHEN50 
G07073 

FOR I = 244 fO i 37EP-2 : F0KE54273I • NEXT ; F 0KE54273 .• 0 
PRIN7"ftL.H SUERTE PERDISTE • 

PRIN7 ’‘ ÍÍ3D INERO «ttiiiir M; "PTñ3 

M=N-5 ; í Fi1=0uRI¡= i THENPRI NT' ,TTE QüEDfiSTE 31N LI ÑERO 1 RI¡I ijs : END 
p=0 ; PR I NT 1 ü I ERES JUGRR G7RR VEZ? S/N~ 

GETFií ; I r R$~ !! S 7HEN283 
I FRÍO" N 11 7 HE N 320 
END 

PR I NT tiimíM" '■ FÜRI = 17019 
PR I NT !: 

NEXT 
RETURN 
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KEY INFORMATICA, Embajadores, 90 (Madrid) -Tfno.: 227 09 80 - 227 91 99 
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Os presentamos cuatro rutinas pa¬ 
ra extender el BASIC de vuestro 
Commodore 64 hechas en lenguaje 
máquina. Para “llamarlas”, bien en 
modo directo o en modo programa, 
basta con teclear SYS seguido de los 
parámetros (según se indica en el lis¬ 
tado para cada rutina). 

Cada una de las cuatro es totalmen¬ 
te reubicable e independiente de las 


otras, lo cual significa que se pueden 
cargar en cualquier zona de memoria 
libre con sólo cambiar la asignación 
de la variable S (líneas 140, 280, 400 
y 550) por el valor deseado y... ¡Ojo! 
teniendo en cuenta que no se solape 
una con otra (para ello cuenta el nú¬ 
mero de bytes que ocupa cada una, 
que no es más que el número de DA- 
TAs). 


Para utilizarles, si las cambias de si¬ 
tio en memoria, basta cambiar el pri¬ 
mer parámetro de SYS de la rutina co¬ 
rrespondiente por el número de que 
hayas asignado a S. 

Una vez cargado el programa, sal¬ 
vado (en cinta o disco) y ejecutado, 
teclea NEW, pulsa RETURN a con¬ 
tinuación y podrás introducir tus pro¬ 
pios programas usando estas rutinas. 


30 rem mmmmmmmmmmmmmmmm 

40 REM * UTILIDADES EN CODIGO MAQUINA * 

50 rem 
60 REM 
70 REM 
30 REM 

90 REM DUKE SIMULADO - POKE DE 2 BVTES 
100 REM SE ALMACENA-L0/HI 
110 REM FORMATO : 

120 REM SVS49152,DIRECCI0N,NUMERO 

130 REM NUMERO=0 HASTA 65535 
140 S=49152 
150 G0SUB 690 

160 DATA32,253,174,32,138,173,32,247,183,174,20,0,172,21,0,142,251 
170 DATA0,140,252,0,32,253,174,32,138,173,32,247,183,174,20,0,172 
180 DATA21,0,142,253,0,140,254,0,160,0,173,253,0,145,251,200,173 
190 DATA254,0,145,251,96,-1 
200 REM 

210 rem mmwmmmmmmmmmmmmm 

220 REM 

230 REM GOTO SIMULADO 

240 REM PERMITE SALTAR A UNA LINEA SEGUN UNA VARIABLE 0 EXPRESION 
250 REM FORMATO : 

260 REM SVS49208,VRRIABLE 

270 REM LA VARIABLE PUEDE SER UNA FORMULA COMO : '2TX', '30#7+R',ETC.. 
280 5=49208 
290 GOSUB 690 

300 DATA32,253,174,32,138,173,32,247,183,76,166,168,-1 
310 REM 

320 rem mmmmmmmmmmmmmmwm 

330 REM 

340 REM PRINT AT SIMULADO 
350 REM FORMATO : 

360 REM SVS49220,V,X,CMENSAJE] 

370 REM X= COORDENADA X <0-39> 

380 REM V= COORDENADA V <0-24) 

390 REM MENSAJE - IGUAL QUE EN LAS SENTENCIAS PRINT 
400 S=49220 
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410 

420 

430 

440 

450 

460 

470 

4S0 

490 

300 

510 
520 
530 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6 o ü 
685 
688 
690 
700 
710 
720 
730 


GÜSUB 690 

DRTR32.' 253.* 174,32, 158, 183, 138,72,32,253, 174,32, 158, 183, 138, 168, 104 

URTR170,24,32,240,255,32,253,174,76,160,170,-1 

REM 


rem mmmmmmmmmmmwmmmm 

REM 

REM 'SRVE' F’RRR BLOQUES HE MEMORIR 
REM FORMRTO : 

REM SVS49248,CÜMIENZO,FIN,PERIFERICO 

REM COMIENZO = DIRECCION DESDE Lñ QUE SE QUIERE GRABAR 

REM FIN = DIRECCION HfiSTñ Lñ QUE SE QUIERE GRfiBRR + 1 

REM PERIFERICO* 01 CASSETTE 

REM = 08 DISCO 

S=4S248 

GOSUB 650 


1 247 .■ 1 ÜS¡ .■ 174/ 20 / 0 / 172 .>21/0/ 142 /172 
DATA©..142.. 153/0/ 140.. 173/0/ 140.154/0/32/253/174/32/ 138/ 173/32 
DRTR247 , 183/ 174/20/0/172/21/0/ 142/ 174.. 0/140.. 175/0/162/0/142 
DATA 183/ 0.< 232 .* 142 / 185 / 0/ 32.. 253.• 174 .< 32 / 155 / 183 > 142 .* 186/ 0 / 76 / 237 / 245 / * 
REM 


REM 


REM TODRS LAS RUTINAS SON REUBICRBLES 
REM PRRR ELLO/ BRSTR CON CRMBIRR EL VRLOR DE S 
REM RSEGURRNDOSE DE QUE LRS RUTINAS NO SE SOLAPEN 
REM 

REM TODAS LAS SENTENCIAS ' REM"' PUEDEN OMITIRSE 
END 

REM *** RUTINA CARGADORA DE CODIGO MAQUINA m* 
RERD A 

IF A=-lTHEN RETURN 

POKES/fl 

S=S+1 

GüTU 69U 
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TERCERA PARTE 


para el 


TRATATAMIENTO DE LISTAS Y 
PALABRAS 

Este subconjunto de instrucciones 
es el más representativo, junto con el 
idioma de la tortuga, del Logo. 
¡Asómbrense los usuarios del BASIC 
de la sencillez y potencia de estas pri¬ 
mitivas! 

Una definición recursiva de lista se¬ 
ria: «Un conjunto eventualmente va¬ 
cío de átomos o listas.» Por ejemplo 
son listas: [1 2 3], [A BE CE DE E 
EFE] o [[X Y][AC BV][HJU]],... 

WORD? :A, LIST? :A da verdade¬ 
ro si la variable A es una palabra o 
lista respectivamente. (Recuérdese 
NUMBER?). 

EMPTY? :A resulta TRUE si A es 
una palabra sin letras (”) o una lista 
vacía []. 

MEMBER? :A :B será verdadero si 
A es una letra, palabra o lista conte¬ 
nida en B, siendo B respectivamente 
una palabra, lista o lista de listas. 

COUNT :A indica el número de le¬ 
tras de A si es una palabra y el nú¬ 
mero de palabras si A es una lista. 

ITEM :A :B extrae el elemento nú¬ 
mero :A de :B, que debe ser una pa¬ 
labra o lista. 

FIRST :A, LAST :A toma el pri¬ 
mer o último elemento de A. Si A es 
una palabra, obtiene una letra. Si A 
es una lista extrae una palabra. Si A 
es una lista de listas dara una lita. 

BUTFIRST :A, BUTLAST :A ob¬ 
tiene como resultado todo el valor de 
A excepto el primer o último elemen¬ 
to. Ejemplo: BUTFIRST ”1234 será 
”234. 



C-64 


FPUT :A :B, LPUT :A :B pone :A 
delante o al final de : B. 

WORD :A :B concatena en una so¬ 
la palabra :A y :B. Al igual que en las 
2 siguientes instrucciones, puede ha¬ 
ber más de 2 variables. 

SENTENCE :A :B ...crea una lista 
simple conteniendo como elementos 
a :A, :B,... si son palabras o a sus ele¬ 
mentos si se trata de listas. 

LIST :A :B ...origina una lista con 
:A, :B, ...Ejemplo: (LIST [12] [3] [4 
5]) es [[1 2] [3] [4 5]] mientras que 
(SENTENCE [12] [3] [4 5]) es [12 3 
4 5]. 

AYUDA A LA PROGRAMACION 

El Logo dispone de las siguientes 
primitivas: 


TRACE y NOTRACE para ejecu¬ 
tar o no paso a paso el programa. 

PAUSE o pulsar CONTROL-G, 
congela el desarrollo del programa y 
permite analizar la situación (estado 
de las variables...). 

CONTINUE reanuda la ejecución 
del programa tras la pausa produci¬ 
da por la instrucción anterior. 

En Logo se pueden superponer los 
programas sin interferirse (al leer un 
programa no se borra el anterior), por 
lo que no existe ninguna primitiva 
análoga a Merge. 

Se incluye bajo este epígrafe otra 
variedad de sentencias que el manual 
califica de «comandos misceláneos», 
y que se caracterizan por tener como 
prefijo un punto. 

.ASPECT :A modifica la escla ver¬ 
tical de la pantalla gráfica. Permite 
corregir «esos círculos aplastados o 
estirados», debidos al diferentes nú¬ 
mero de líneas de barrido de los mo¬ 
nitores y televisores. Ordinariamente 
:A vale 0.768. Si aumentamos :A se 
separan entre sí los puntos verticales 
contiguos. 

.CALL :A :B para llamar a subru¬ 
tinas escritas en lenguaje máquina. 

.CONTENTS Da como resultado 
una lista con los nombres de todas las 
variables, procedimientos y palabras 
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utilizadas en la definición de proce¬ 
dimientos. 

.DEPOSIT :A :B y .EXAMINE A: 
similares a POKE y PEEK del BA¬ 
SIC. 

.GCOLL produce una limpieza de 
la memoria de nudos (garbage collec- 
tion). 

.NODES indica el número de nu¬ 
dos libres. Debe precederse de 
.GCOLL. 

.SPRINT :A utilizada en el editor de 
«duendes». 

.OPTION :A :B :C permite modi¬ 
ficar el comportamiento de algunas 
instrucciones primitivas (DRAW, 
.DEPOSIT, .EXAMINE, EDIT, 
PRINTER, READCHARACTER, 
SAVE, STAMPCHAR y TEXT- 
SCREEN). 

DUENDES 

El Logo dispone únicamente de las 
siguientes primitivas para los «spri¬ 
tes»: 

TELL :N para llamar a uno de los 
«duendes» (0-7). 

WHO indica el número de sprite 
activado. 

SETSHAPE :N asigna la forma :N 
(0-7) al duende presente. La configu¬ 
ración 0, tortuga omnidireccional, só¬ 
lo puede ser atribuida al sprite 0. 

SHAPE da como resultado el nú¬ 
mero de forma del duende activado. 

El resto de instrucciones típicas de 
sprites son procedimientos y se en¬ 
cuentran en tres programas del disket- 
te Logo Utilities. El fichero sprites 
contiene procedimientos como BIGX, 
BIGY, SMALLX, SMALLY para va¬ 
riar el tamaño del duende en altura 
o anchura, TB? y TS? para detectar 
choques del sprite activo con dibujos 
u otros sprites... El archivo SPRED 
dispone de un editor.de formas de los 
duendes EDSH (EDit SHape), SA- 
VESHAPE :A y READSHAPE :A 
para salvar y leer configuraciones... El 
programa Velocity tiene instrucciones 
para poner en movimiento a los spri¬ 
tes. Cargando estos 3 ficheros se dis¬ 
pone de una colección exhaustiva de 
sentencias. 


El Utilities Disk también ofrece 4 
archivos con formas de animales, ve¬ 
hículos... y 4 programas de anima¬ 
ción, como demostración: Runner, 
Dinosaurs, Submarine y Spritesde- 
mos. 

MUSICA 

Las instrucciones musicales son 
procedimientos y se cargan del Utili¬ 
ties Disk con READ ”MUSIC, que 
automáticamente (con la variable 
STARTUP) lee también el fichero 
SOUND. Las sentencias recogidas 
son: 

SSH :N que produce un sonido se¬ 
co y deja transcurrir un tiempo de :N 
unidades. La duración de estas unida¬ 
des puede regularse con la primitiva 
TEMPO :M. 

SSHER :N cuyo argumento :N es 
una lista de números a los que aplica 
el SSH. 

SHING :N para tocar una melodía 
cuyas notas (tonos) están contenidos 
en la lista :N. Cada nota se mantiene 
un tiempo constante. 

PLAY :N :M hace sonar las notas 
indicadas en :N con una duración va¬ 
riable expresada por :M. Ambas lis¬ 
tas deben cumplir: COUNT :M> = 
COUNT :N. 

Para crear sonidos originales se dis¬ 
pone de: 

WAVE :N define la forma de la on¬ 
da sonora, que puede ser triangular, 
en diente de sierra, pulso rectangular... 

ATTACK :N establece el tiempo de 
ataque y DECAY :N el tiempo de de¬ 
mora. 

SUSTAIN :N y RELEASE :N fijan 
los tiempos de sostenidos y de emi¬ 
sión. La variable :N de las 4 últimas 
instrucciones puede variar entre 0-15. 

SOUND :A :B :C :D :E es el pro¬ 
cedimiento básico (de más bajo nivel) 
empleado en las anteriores sentencias. 
Los 5 datos de entrada son nota, du¬ 
ración, un número combinación de 
ataque/demora, otra cifra mezcla de 
sostenido/emisión y forma de onda. 

Con todas estas ayudas es muy fá¬ 
cil programar música. El diskette Uti¬ 
lities presenta un programa de demos¬ 
tración llamado Twinkle. 


LlSTfiDO DE PROGRRMRS DEL 
- "UTILITIES DISK” 

UTILITIES DISK 


ff 

BRSE.LOGO 

PRG 

2 

J0V.LOGO 

PRG 

10 

GRRMMRR.LOGO 

PRG 

2 

for.looo 

PRG 

4 

WHILE.LOGO 

PRG 

Q 

RNIMRL.LOGO 

PRG 

5 

LOG.LOGO 

PRG 

1 

RSSORTED.LOGO 

PRG 

2 

PIO.LOGO 

PRG 

3 

SN0W.LOGO 

PRG 

3 

RRCS.LOGO 

PRG 

2 

C0L0RS.LOGO 

PRG 

2 

RMODES.LOGO 

PRG 

6 

0PC0DES.LOGO 

PRG 

14 

RSSEMBLER.LOGO 

PRG 

4 

CCHRNGE.SRC.LOGO 

PRG 

2 

RDDRESSES.LOGO 

PRG 

1 

CCHRNGE.BIN 

PRG 

1 

B&IJ. LOGO 

PRG 

1 

CCHRNGE.LOGO 

PRG 

2 

STRMPFD.LOGO 

PRG 

4 

VELOCITY.LOGO 

PRG 

3 

TEXTEDIT.LOGO 

PRG 

10 

DYNRTRRCK.LOGO 

PRG 

20 

RDVENTURE.L0G0 

PRG 

2 

TERCH.LOGO 

PRG 

11 

SPRED.LOGO 

PRG 

3 

PRINTPICT 

PRG 

33 

INSPI.PIC1 

PRG 

4 

SPRITES.LOGO 

PRG 

1 

RNIMRLS.LOGO 

PRG 

2 

RNIMRLS.SHRPES 

PRG 

5 

SUBMRRINE.LOGO 

PRG 

8 

INSTRNT.LOGO 

PRG 

5 

INSPI.PIC2 

PRG 

2 6 

DEMO.LOGO 

PRG 

2 

STRMPER.LOGO 

PRG 

2 

TET.LOGO 

PRG 

5 

MUSIC.LOGO 

PRG 

5 

PINOSRURS.LOGO 

PRG 

1 

VEHICLES.LOGO 

PRG 

2 

VEHICLES.SHRPES 

PRG 

1 

SHRPES.LOGO 

PRG 

2 

SHRPES.SHRPES 

PRG 

2 

SOUND.LOGO 

PRG 

4 

SPRHEDEMOS.LOGO PPG 

4 

RUNNER.LOGO 

PRG 

2 

RUNNER.SHRPES 

PRG 

1 

TWINKLE.LOGO 

PRG 

10 

PLOTTER.LOGO 

PRG 

2 

RSSORTED.SHRPES 

PRG 

2 

ANIMAL.INSP.LOGO 

PRG 

2 

C.SHRPES 

PRG 

396 

BLOCKS FREE. 
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PROGRAMAS OFRECIDOS 
EN EL UTILITIES DISK 

Este diskette no está protegido, a di¬ 
ferencia del que contiene el lenguaje, 
y el manual nos aconseja duplicarlo 
para prevenir algún daño accidental 
por xceso de uso (el disco LOGO pue¬ 
de reemplazarse por medio del ven¬ 
dedor en el infrecuente caso de dete¬ 
rioro). 

Un acierto pleno, digno de imita¬ 
ción en otros lenguajes, ha sido la in¬ 
clusión de este nutrido paquete de 
programas (la tabla 1 muestra el lis¬ 
tado completo), principalmente para 
el usuario neófito que puede tardar en 
convencerse de las ventajas del Logo. 
Basta uno de estos programas, Texte- 
dit, que permite disponer de un edi¬ 
tor de texto (con el que se ha escrito 


este artículo), para justificar la com¬ 
pra del Logo. 

Aparte de los programas ya comen¬ 
tados, relativos a duendes y música, 
así como esa pequeña maravilla de 
Textedit, de facilísimo manejo, están 
presentes: 

—Procedimientos complementa¬ 
rios de gran utilidad en campos espe¬ 
cíficos: 

Ares, con instrucciones para dibu¬ 
jar arcos y circunferencias. 

Base, para paso de un sistema de 
numeración a otro de base distinta. 

For, para quienes echen de menos 
los bucles al modo del BASIC. 

Log, para cálculos con funciones 
logarítmicas o exponenciales. 

While, que define las instrucciones 
del Basic extendido While y Until. 

B&W, para optimizar la señal en te¬ 


levisores de blanco y negro. 

Change, ejemplo en lenguaje má¬ 
quina. Cambia colores en la pantalla 
gráfica. 

Colors, para no tener que recordar 
los números correspondientes a cada 
color. 

Joy, para dibujar con el Joystick. 

Plotter, con procedimientos para 
utilizar el Plotter de 4 colores como 
periférico de salida. 

Printpict es un programa que per¬ 
mite hacer «copias» en la impresora 
de la pantalla gráfica. Es el único he¬ 
cho en BASIC (su título en la tabla 
1 no tiene sufijo). Si bien es lento, de¬ 
bería estar en código máquina, y se 
pierden los colores y el contraste, se 
aplasta y disgrega el dibujo..., es muy 
útil. Todas las figuras del artículo se 
han realizado con este programa. 



HIL 1 

MATH 

1000 

TRIG 

1000 

ALPHA- 

BET 

START 2 

Terrapin Logo. C-64 

13’ 

54” 

86” 

14” 

91 veces 

DR Logo IBM PC 

15’ 

196” 

233” 

27” 

514 veces 

IBM Logo. IBM PC 

5’ 

75” 

' 535” 

13” 

2386 veces 

PC Logo. IBM PC (con 8087) 

r 

19” 

16” 

210” 

106 veces 

PC Logo. IBM PC (sin 8087) 

7’ 

45” 

74” 

196” 

106 veces 

Waterloo Logo. IBM PC 

12’ 

140” 

292” 

35” 

763 veces 


TABLA A 

TABLA B 


Tabla A-B. 



TO HILBERT : T : N :R 
IF ; N = 0 STOP 
LI : P # 90 
LOCAL ”L 
MAKE "L : N - 1 
HILBERT -T -L < - ¡P > 
FB • T 

RT :P * 90 
HILBERT : T -L -P 
FD : T 

HILBERT : T : L ’P 
RT : P # 90 
FB : T 

HILBERT : T : L í - : P ) 
LT :P * 90 
ENB 


TO HIL : COLOR 
BG 0 

PC : COLOR 

FULLSCREEN 

HOME 

CS 

PU 

SETX, 150 
SETV - 100 
PB 

HILBERT 3 6 1 


ENB 


Figura 1 1 
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PRESENTA 

GHOSTBUSTERS™ 

el video-juego de mayor éxito, 
en cassette y diskette para el COMMODORE 64™. 


También ahora disponibles 
para tu Sinclair 

SPECTRUM™ o 
COMMODORE 64™, 
sus grandes títulos de 



<D 

a 


Sinclair- SPECTRUM™ es una marca registrada de Sinclair Research Ltd. 
COMMODORE 64™ es una marca registrada de Commodore Electronics, Ltd. 


DECATHLON™, 
RIVER RAID™, 
HERO™, 
PITFALL II™, 

ZENJI™, etc... 


PROEINSA 

Velázquez, 10. 28001 Madrid 
Tels. 276 22 08 / 09 



Protege tu Commodore con esta 

— Uno oferta especial y exclusiva 

para nuestros lectores 


Una práctica funda lavable y resistente, que protegerá del polvo 
y de otros deterioros a tu COMMODORE. 
j Y que por ser una oferta exclusiva para nuestros lectores puedes 
conseguirla con un 25% de descuento sobre su precio real 
de venta! 

¡Apresúrate! Recorta y envía HOY MISMO 
este cupón a: 

COMMODORE MAGAZINE (FUNDAS) 

Bravo Murillo, 377 - 28020-MADRID 

Las existencias son limitadas 
¡No te quedes sin ella! 
















Stamper y Stampfd, para represen¬ 
tar textos en cualquier dirección y sen¬ 
tido de la pantalla gráfica. 

Teach, un sistema alternativo a TO 
y DEFINE para escribir procedimien¬ 
tos. 

Instant es un conjunto de procedi¬ 
mientos que permiten a un niño de 
4-5 años (bastan conocimientos de 
prelectura) dirigir a la tortuga y reali¬ 
zar dibujos como el de la figura 7. Pe¬ 
dagógicamente es de gran interés pa¬ 
ra consolidar aspectos espaciales, la- 
teralidad... Es un modelo de EASY 
LOGO para dirigir un ordenador des¬ 
de la edad más temprana. Tiene una 
estructura muy diáfana para quien sa¬ 
be programar Logo y permite ampliar 
sus posibilidades. 

Programas de demostración, para 
poder analizar su estructura (que el 
manual explica detenidamente en al¬ 
gunos casos): 

Tet, uno de los incontables ejem¬ 
plos de procedimientos recursivos 
(luego se explicará la recursividad) que 
dibuja complejas figuras geométricas. 

Snow, copo de nieve, la evolución 
(¡recursiva!) de las famosas islas de 
Koch. 

Dynatrak, simulación, otro campo 


propicio al Logo, de un fenómeno fí¬ 
sico. 

Adventure, juego de aventuras co¬ 
mo ejemplo eficaz de un tratamiento 
de listas. 

Animal, juego que va acumulando 
datos con una avanzada gestión de lis¬ 
tas. 

Grammar, con algunos procedi¬ 
mientos para generar frases aleatorias. 
De gran ayuda para escribir postales. 

INSPI.PIC1 e INSPI.PIC2 contie¬ 
ne la copia de una pantalla gráfica. 

—Procedimientos de Ensamblador 
para lenguaje máquina: 

Addresses, Amodes, Assembler y 
Opcodes, que serán apreciados por los 
usuarios especialistas, amigos del có¬ 
digo máquina. 

ANALISIS DE UN PROGRAMA 

La descripción, aunque hubiese si¬ 
do muy pormenorizada, de las primi¬ 
tivas y los procedimientos aportados 
no permite descubrir la auténtica 
esencia del Logo. Unicamente progra¬ 
mando se revela toda la armonía y 
concisión de este lenguaje. Para con¬ 
cluir y como botón de muestra vea¬ 
mos un ejemplo simple extractado del 
libro 3. 


Planteamiento: Se trata de hacer un 
reloj analógico de 3 agujas (como el 
déla figura 10) que funcione en tiem¬ 
po real y haga tic-tac. 

Solución: Como hay que dibujar 
una circunferencia (CIRCLEL), poner 
números en la pantalla gráfica 
(STAMP) y hacer ruido (SSH) es pre¬ 
ferible, a menos que nosotros mismos 
construyamos los procedimientos 
oportunos, cargar del Utilities Disk 
los archivos: Ares, Stamped y Music 
(mediante READ). Tecleando los 3 
procedimiento de la tabla 2 y pulsan¬ 
do RELOJ el programa funciona per¬ 
fectamente. 

Aquellos lectores que hayan segui¬ 
do pacientemente todo el artículo po¬ 
drán entender el listado y valorar jus¬ 
tamente las posibilidades del Logo. Se 
han empleado las siguientes abrevia¬ 
turas: HT = HIDETURTLE, PR = 
PRINT, RQ = REQUEST, PU = 
PENUP, PD = PENDOWN, BK = 
BACK, BF = BUTFIRST, SETH = 
SETHEADING y PC = PENCO- 
LOR. 

RELOJ hace que la esfera no apa¬ 
rezca ovalada en pantalla, pasa al mo¬ 
do dibujo y oculta la tortuga; pide la 
hora y minuto al usuario; borra la 
parte de pantalla de texto y, situán¬ 
dose adecuadamente, traza la circun¬ 
ferencia del reloj y llama a HORAS. 
Este procedimiento comprueba si su 
argumento (una lista) carece de ele¬ 
mentos. En caso negativo dibuja los 
números y rayas de las doce horas y 
en cada ocasión quita el primer ele¬ 
mento de la lista. Cuando el paráme¬ 
tro :A es una lista vacía pasa a CAMI¬ 
NA con la hora y minuto indicados 
y 19 segundos que ha empleado en 
RELOJ y HORAS. CAMINA dibu¬ 
ja en cada segundo las 3 agujas y su¬ 
prime la posición anterior del segun¬ 
dero. Si marca 59 segundos borra la 
posición actual del minutero y si, ade¬ 
más, es el minuto 59 oculta la aguja 
horaria. Quienes se animen a progra¬ 
mar en Logo pueden mejorar este 
programa fácilmente, poniendo colo¬ 
res, números romanos, campanadas y 
melodías a las horas, n . las medidas... 
El valor 5 de SSH 5 se ha puesto pa- 


LlSTñDO DEL PROGRAMA-EJEMPLO RELOJ 
READ "PROS REfiD "STAMPER RERD "MUSIO 
TO CAMINA : H :M ¡S 

PU HOME SETH 30 * ¡H PD PC 1 IF 'M « 39 IF : S a 39 PC - 1 MRKE "H : H ♦ 1 

FD 30 PU HOME SETH 6 # ; M PD PC 1 IF S * 39 PC -1 MRKE "M ’M +1 

FD 60 PU HOME SETH 6 * : S PD FD 70 

SSH 3 PU HOME SETH 6 * ( : S - 1 ) PC - 1 PD FD 70 

CRMINR : H REMRINDER :M 60 REMRINDER < :S + 1 ) 60 

END 

TO HORAS R 

IF EMPTV? : R CRMINR : H 'M 19 ELSE PU SETXV 0 0 RT 30 FD 90 PD FD 13 PU BK 23 PD 
STAMP FIRST :R HORAS BF :fl 
END 


TO RELOJ 

.ASPECT 0.9 DRAW HT 

PR CHORA] MRKE "H FIRST RQ 

PR [MINUTO] MRKE "M FIRST RQ 

FULLSCREEN PIJ SETX XCOR ♦ 100 PD CIRCLEL 100 

HORAS C1 2 3 4 3 6 7 0 9 10 11 12] 

END 


Tabla 2. 
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ra retardar (¡este Logo es tan rápido!) 
y ajustarlo al tiempo real. 

¡Ah!, si el reloj atrasa o adelanta 
se regula con el parámetro SSH (4.8 
ó 5.2). 

LA RECURSIVIDAD 

Es una propiedad que permite a un 
programa «llamarse a sí mismo». La 
mayor parte de los BASIC son poco 
eficaces al ejecutar programas recur¬ 
sivos (por carecer de variables locales 
y llamada de procedimientos por su 
nombre). Logo induce al uso y abuso 
de este tipo de programas. El proce¬ 
dimiento CAMINA es recursivo. CA¬ 
MINA :H :M :S se encarga de poner 
las 3 agujas en la hora :H, minuto :M 
y segundo :S, borrar la posición ocu¬ 
pada en el instante anterior y hacer 
tic-tac. Al finalizar suma 1 al núme¬ 
ro de segundos, se asegura que los se¬ 
gundos y minutos estén en el interva¬ 
lo 0-59 (mediante REMAINDER :M 
60) y comienza de nuevo. También 
HORAS :A es recursivo hasta que :A 
sea una lista vacía por efecto de BF. 
En ambos procedimientos se utiliza la 
clase de recursividad más elemental. 
(Como ampliación véanse las referen¬ 
cias bibliográficas 18 y 19). 

BANCO DE PRUEBAS 

Se ha comparado el Logo de Terra- 
pin para el C-64 con cuatro versiones 
Logo para el IBM PC: DR Logo de 
Digital Research, IBM Logo de IBM 
Corp. preparado por Logo Compu- 
ters Systems Inc., PC Logo de Har¬ 
vard Associates Inc. y Waterloo Lo¬ 
go de Waterloo Microsystems Inc. El 
PC Logo se probó en un ordenador 
con y sin un segundo coprocesador 
numérico Intel 8087, que es opcional 
en el IBM Personal Computer. 

TESTS DE RAPIDEZ 
«Benchmarcks» (Tabla A) 

El programa HIL 1 construye la fi¬ 
gura 11. Se trata de la conocida «cur¬ 


va de Hilbert» de nivel 6 (véase el li¬ 
bro de la referencia 4). Listado 1. 

El programa MATH 1000 per¬ 
mite medir la velocidad del cálculo 
con aritmética en coma flotante. Lis¬ 
tado 2. 

El programa TRIG 1000 evalúa la 
agilidad del cálculo con funciones tri¬ 
gonométricas. Listado 3. 

El programa ALPHABET 100 va¬ 
lora la celeridad de presentación de 
listas en pantalla. Listado 4. 


TESTS DE RECURSIVIDAD 
(TABLA B) 

El programa STAR 1 es un ejem¬ 
plo de recurrencia simple que, con in¬ 
dependencia del tamaño de la memo¬ 
ria de nodos, debe ejecutarse indefi¬ 
nidamente. Se ha comprobado que to¬ 
das las versiones cumplen este requi¬ 
sito. 

El programa STAR 2 es un ejem¬ 
plo en el que tras la «auto-llamada» 
quedan líneas pendientes de ejecu¬ 
ción. En Basic el efecto similar sería 
llamar a subrutinas encadenadas con 
GOSUB sin que encuentren ningún 
RETURN. El programa debe inte¬ 
rrumpirse al agotar la «pila de recur- 
sión», midiendo de este modo su ta¬ 
maño. Terrapin Logo sólo logra 91 re- 


v peticiones, pero se debe reseñar los 64 
KB del C-64 frente a los 256 KB del 
IBM PC (si bien el Waterloo Logo uti¬ 
liza únicamente 196 KB y el PC Lo¬ 
go 128 KB). Por la misma razón el 
«espacio de trabaj » inicial es de 
2.868 nodos en el C-64, 9.074 en el 
DR Logo y 31.095 nodos en el IBM 
Logo. 

El programa STAR 3 con argumen¬ 
to N = 1 debe ser interpretado como 
un programa recursivo simple, y así es 
entendido por el Logo Terrapin y el 
IBM Logo, pero no por los otros tres 
Logos que se detienen tras un nú¬ 
mero de veces semejante al caso de 
STAR 2. 


BIBLIOGRAFIA BASICA 

Lamentablemente existen aún pocos libros so¬ 
bre Logo en castellano, por lo que se incluyen 
entre estas referencias textos en inglés y fran¬ 
cés. Los títulos dedicados al Apple son plena¬ 
mente válidos para el CM 64 sin apenas trans¬ 
formaciones (recuérdese la relación entre los mi¬ 
croprocesadores 6502 y 6510). 

1. «DESAFIO A LA MENTE«. Seymour 
Papert. Ed. Galápago. Buenos Aires, 1981. 

2. «ALAS PARA LA MENTE». Horacio 

Reggini. Ed. Galápago. Buenos Aires, 
1981. 

3. «LOGO: UN LENGUAJE DE PRO¬ 
GRAMACION». (En Prensa). J.M. Agui- 
rregabiria. Ed. Urmo. Bilbao, 1984. 
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4. «TURTLE GEOMETRY». H. Abelson-A. 
di Sessa. MIT Press. Cambridge, Mass. 

1981. 

5. «LOGO FOR THE APPLE II». H. Abel- 
son. BYTE/McGraw Hill. New York, 

1982. 


6. «LEARNING WITH LOGO». Daniel 
Watt. McGraw Hil!. New York, 1983. 

7. «LOGO: A GUIDE TO LEARNING 
THROUGH PROGRAMMING». Peter 
Goodyear. Ellis Horwood. London, 1983. 


TO MflTH ; N 
MflKE "COUNTER 1 
MflKE "Q 1 

REPEflT : N [MflKE "Q < ; COUNTER + : COUNTER * 3. 14159)/(3+2.71828* : COUNTER) MflKE 
COUNTER : COUNTER +1] 

PRINT :Q 
END 


Listado 2. 


TO TRIO -N 
MflKE "COUNTER 1 
MflKE "Q 1 

REPEflT N CMflKE "Q SIN OCOUNTER *2)+C0S < •' COUNTER *3 ♦ : COUNTER) 3 
MflKE "COUNTER : COUNTER + 1 
PRINT -’Q 
END 


Listado 3. 


TO ALPHABET -N 

MflKE "flCflBCDEFGHIJKLMNOPQRSTUVWXVZI 
MflKE "COUNTER 1 

REPEflT •'N EPRINT1 :fl PRINT1 -COUNTER MflKE "COUNTER ^COUNTER+l] 
END 


Listado 4. 
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8. «DISCOVERING APPLE LOGO». Da¬ 
niel Thornburg. Addison-Wesley. Califor¬ 
nia, 1983. 

9. «AN INTRODUCTION TO LOGO». J. 
Dale Burnett. Creative Computing Press. 
N. Jersey, 1982. 

10. «APPLE, LOGO PRIMER». Gary Bit- 
ter. Prentice Hall, 1983. 

11. «UNDERSTANDING LOGO». Richard 
Peddicord. Alfred Publishing Co., 1983. 

12. «LOGO PROGRAMING». Peter Ross. 
Addison Wesley, 193. 

13. «LEARNING LOGO IN THE APPLE 
II». Anne McDougall. Prentice Hall of 
Australia, 1982. 

14. «1, 2, 3 MY COMPUTER & ME». D. 
Bearden. Prentice Hall, 1983. 

15. «THE TURTLE’S SOURCEBOOK». D. 
Bearden. Prentice Hall, 1983. 

16. «PREMIERES PAS EN LOGO». Marie- 
Gaelle Monteil. Eyrolles. París, 1984. 

17. «LOGO». Gerard Weidenfeld. Eyrolles. 
París, 1984. 

Los artículos sobre Logo en revistas son muy 
abundantes. Se pueden citar: 

18. «VOYAGE AU CENTRE DE LOGO». 
Pierre Camilhe. L’Ordinateur Individuel. 
Octubre de 1983. Traducido por El Or¬ 
denador Personal. 

19. «RECURSION». Barry Landsberg. Com¬ 
puting Today. Abril de 1984. 

20. «ETERNEL RETOUR». Aime Saint- 
Vryn. L’Ordinateur Individuel. Noviem¬ 
bre de 1983. 


JOSE MIGUEL 
AGUIRREGABIRIA, 


TO STfiR2 -N 
PRINT1 -N 
STRR2 -N + 1 
PRINT1 [*] 
END 


TO STRR3 •' N 
PRINT1 -N 
PRINT1 [#J 

IF : N > 0 STRR3 : N + 1 
END 


TO STfiRl :N 
PRINT1 :N 
PRINT1 [#] 
STRR1 :N + 1 
END 


Listado 
del test de 
recursividad 
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INC. 


MusiCalc 

El Sistema Creativo de Música 

(para personas aún sin conocimientos musicales) 



PERSONAL PERII 

P 

TABLA GRÁFICA 

para Commodore 64 


¡Que suene la música! 

Convierta a su Commodore 64 en un sofisti¬ 
cado instrumento musical, y él le convertirá en 
un compositor, director y músico. 

Con MUSICALC, el sistema de música crea- 
: va, toda la familia es capaz de componer y 
tocar música de una manera instantánea. 

¡MUSICALC le divierte jugando con la 
música! 

Obtenga copias en papel de sus propias par- 
: turas, utilize más de 30 escalas distintas, co¬ 
léctelo a su equipo de alta fidelidad y a una 
caja de ritmos, y muchas, muchas posibilida- 
ces más. 



Se entrega junto 
con soft en cartu¬ 
cho. Gráficos en 
alta resolución. 
16 colores. 2 pá¬ 
ginas de dibujo. 
Zoom, menús de diseño, archivo en cinta o dis¬ 
co, posibilidad de incluir texto. Permite printar los 
gráficos mediante soft adicional. 


Entra en el apa¬ 
sionante mundo 
del arte de 
ordenador. 
¡Fácil de usar! 



I ) °®I» 


Durabilidad y buen precio 

Compatible con C-64, Atari, Spectravideo, Sinclair Spec- 
trum (con interface) etc... 


MONITOR DE COLOR 

14” Profesional 



• Pantalla de gran resolución 

• Sonido incorporado 

• Entrada señal video compuesta o RGB 

• Peana orientable 

• Gran resistencia y durabilidad 

Adaptable a todos los ordenadores. 

(Los microordenadores que sólo tienen salida RF son compatibles me¬ 
diante una sencilla conexión) 


Distribuidor exclusivo 


i IDEALOGIC 

Gran Vía Carlos III, 97 K. 08028 BARCELONA 
Tels: 330 33 08 • 330 33 62. Télex: 50156 JONC 
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COMMODORE 16 
i M EMOCION DE EMPEZAR 


Iniciarse en el mundo de los 
ordenadores personales con un 
COMMODORE 16 es sumar, a la emoción 
de empezar, la emoción del futuro. 

Porque es un ordenador de 
fácil manejo y programación, pero con 
prestaciones que sólo se encuentran en 
ordenadores de costo mucho más elevado. 

Porque es un ordenador 
pequeño, pero con la mayor cantidad de 


software y periféricos, que multiplican sus Porque es el ordenador ideal 

posibilidades futuras. para empezar y perfecto para seguir. 


PRINCIPALES CA 

\RACTERISTICAS 


- 16 K. 

- COMANDOS DE AL TO NIVEL 

PARA GESTION DE COLOR, SONIDO 

Y GRAFICOS DE AL TA RESOLUCION. 

- TECLADO PROFESIONAL. 

- 40 COLUMNAS x 25 LINEAS. 

-121 COLORES. 

- GRAFICOS EN ALTA RESOLUCION. 

- 2 GENERADORES DE TONO. 

- AMPLIA GAMA DE PERIFERICOS. 




commodore 16 

LA EMOCION DEL FUTURO 



commodore 

COMPUTER 


MICROELECTRONICA Y CONTROL 
d Valencia, 49-53. 08015 Barcelona, d Princesa, 47, 3. ° G. 28008 Madrid. 

UNICO REPRESENTANTE DE COMMODORE EN ESPAÑA 
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